1 // Copyright (C) 2007-2011 CEA/DEN, EDF R&D, OPEN CASCADE
3 // Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License.
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 // Lesser General Public License for more details.
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
23 // SALOME ResourcesCatalog : implementation of catalog resources parsing (SALOME_ModuleCatalog.idl)
24 // File : SALOME_ResourcesCatalog_Handler.cxx
25 // Author : Estelle Deville
29 #include "SALOME_ResourcesCatalog_Handler.hxx"
30 #include "Basics_Utils.hxx"
35 //=============================================================================
38 * \param listOfResources: map of ParserResourcesType to fill when parsing
40 //=============================================================================
42 SALOME_ResourcesCatalog_Handler::
43 SALOME_ResourcesCatalog_Handler(MapOfParserResourcesType& resources_list): _resources_list(resources_list)
45 //XML tags initialisation
46 test_machine = "machine";
47 test_cluster = "cluster";
49 test_hostname = "hostname";
50 test_protocol = "protocol";
51 test_cluster_internal_protocol = "iprotocol";
55 test_user_name = "userName";
56 test_appli_path = "appliPath";
57 test_modules = "modules";
58 test_module_name = "moduleName";
59 test_components = "component";
60 test_component_name = "name";
62 test_mem_in_mb = "memInMB";
63 test_cpu_freq_mhz = "CPUFreqMHz";
64 test_nb_of_nodes = "nbOfNodes";
65 test_nb_of_proc = "nbOfProc";
66 test_nb_of_proc_per_node = "nbOfProcPerNode";
67 test_batch_queue = "batchQueue";
68 test_user_commands = "userCommands";
70 test_members = "members";
73 //=============================================================================
77 //=============================================================================
79 SALOME_ResourcesCatalog_Handler::~SALOME_ResourcesCatalog_Handler()
81 // cout << "SALOME_ResourcesCatalog_Handler destruction") << endl;
84 //=============================================================================
86 * Retrieves DS after the file parse.
88 //=============================================================================
90 const MapOfParserResourcesType&
91 SALOME_ResourcesCatalog_Handler::GetResourcesAfterParsing() const
93 return _resources_list;
96 //=============================================================================
98 * Processes XML document and fills the list of resources
100 //=============================================================================
102 void SALOME_ResourcesCatalog_Handler::ProcessXmlDocument(xmlDocPtr theDoc)
104 // Empty private elements
105 _resources_list.clear();
109 _resource.HostName = Kernel_Utils::GetHostname();
110 _resource.Name = Kernel_Utils::GetHostname();
111 _resource.DataForSort._Name = Kernel_Utils::GetHostname();
112 _resources_list[Kernel_Utils::GetHostname()] = _resource;
114 // Get the document root node
115 xmlNodePtr aCurNode = xmlDocGetRootElement(theDoc);
117 aCurNode = aCurNode->xmlChildrenNode;
119 // Processing the document nodes
120 while(aCurNode != NULL)
122 // Cas d'une machine ou d'une machine batch
123 if (!xmlStrcmp(aCurNode->name,(const xmlChar*)test_machine))
126 bool Ok = ProcessMachine(aCurNode, _resource);
130 if(_resource.HostName == "localhost")
132 _resource.HostName = Kernel_Utils::GetHostname();
134 std::map<std::string, ParserResourcesType>::const_iterator iter = _resources_list.find(_resource.Name);
135 if (iter != _resources_list.end())
136 RES_INFOS("Warning resource " << _resource.Name << " already added, keep last resource found !");
137 _resources_list[_resource.Name] = _resource;
140 // Cas de la déclaration d'un cluster
141 if (!xmlStrcmp(aCurNode->name,(const xmlChar*)test_cluster))
144 if(ProcessCluster(aCurNode, _resource))
146 std::map<std::string, ParserResourcesType>::const_iterator iter = _resources_list.find(_resource.Name);
147 if (iter != _resources_list.end())
148 RES_INFOS("Warning resource " << _resource.Name << " already added, keep last resource found !");
149 _resources_list[_resource.Name] = _resource;
152 aCurNode = aCurNode->next;
156 for (std::map<std::string, ParserResourcesType>::const_iterator iter = _resources_list.begin();
157 iter != _resources_list.end();
160 std::cerr << "************************************************" << std::endl;
161 std::cerr << "Resource " << (*iter).first << " found:" << std::endl;
162 std::cerr << " Name: " << (*iter).second.Name << std::endl;
163 std::cerr << " Hostname: " << (*iter).second.HostName << std::endl;
164 std::cerr << " Username: " << (*iter).second.UserName << std::endl;
165 std::cerr << " Appli path: " <<(*iter).second.AppliPath << std::endl;
166 std::cerr << " OS: " << (*iter).second.OS << std::endl;
167 std::cerr << " Protocol: " << (*iter).second.PrintAccessProtocolType() << std::endl;
168 std::cerr << " Internal Protocol: " <<(*iter).second.PrintClusterInternalProtocol() << std::endl;
169 std::cerr << " Mode: " << (*iter).second.PrintAccessModeType() << std::endl;
170 std::cerr << " Batch Type: " << (*iter).second.PrintBatchType() << std::endl;
171 std::cerr << " MPI Impl: " << (*iter).second.PrintMpiImplType() << std::endl;
172 std::cerr << "************************************************" << std::endl;
178 SALOME_ResourcesCatalog_Handler::ProcessCluster(xmlNodePtr cluster_descr, ParserResourcesType & resource)
180 // Ajout d'un cluster
181 // hostname, use et nbOfProc sont obligatoires
182 if (xmlHasProp(cluster_descr, (const xmlChar*)test_hostname))
184 xmlChar* hostname = xmlGetProp(cluster_descr, (const xmlChar*)test_hostname);
185 resource.HostName = (const char*)hostname;
190 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! found a cluster without a hostname" << std::endl;
191 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! this cluster will not be added" << std::endl;
195 if (xmlHasProp(cluster_descr, (const xmlChar*)test_name))
197 xmlChar* name = xmlGetProp(cluster_descr, (const xmlChar*)test_name);
198 resource.Name = (const char*)name;
199 resource.DataForSort._Name = (const char*)name;
204 resource.Name = resource.HostName;
205 resource.DataForSort._Name = resource.HostName;
206 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! No Name found use Hostname for resource: " << _resource.Name << std::endl;
209 if (xmlHasProp(cluster_descr, (const xmlChar*)test_use))
211 xmlChar* use = xmlGetProp(cluster_descr, (const xmlChar*)test_use);
212 resource.use = (const char*)use;
217 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! found a cluster without a use" << std::endl;
218 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! this cluster will not be added" << std::endl;
222 if (xmlHasProp(cluster_descr, (const xmlChar*)test_nb_of_proc))
224 xmlChar* nb_of_proc = xmlGetProp(cluster_descr, (const xmlChar*)test_nb_of_proc);
225 resource.nbOfProc = atoi((const char*)nb_of_proc);
230 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! found a cluster without a nbOfProc" << std::endl;
231 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! this cluster will not be added" << std::endl;
235 if (xmlHasProp(cluster_descr, (const xmlChar*)test_mpi))
237 xmlChar* mpi = xmlGetProp(cluster_descr, (const xmlChar*)test_mpi);
238 std::string anMpi = (const char*)mpi;
242 else if (anMpi == "mpich1")
243 resource.mpi = mpich1;
244 else if (anMpi == "mpich2")
245 resource.mpi = mpich2;
246 else if (anMpi == "openmpi")
247 resource.mpi = openmpi;
248 else if (anMpi == "slurmmpi")
249 resource.mpi = slurmmpi;
250 else if (anMpi == "prun")
253 resource.mpi = nompi;
256 // Parsing des membres du cluster
257 xmlNodePtr aCurSubNode = cluster_descr->xmlChildrenNode;
258 while(aCurSubNode != NULL)
260 if (!xmlStrcmp(aCurSubNode->name, (const xmlChar*)test_members))
262 xmlNodePtr members = aCurSubNode->xmlChildrenNode;
263 while (members != NULL)
266 if (!xmlStrcmp(members->name, (const xmlChar*)test_machine))
268 ParserResourcesClusterMembersType new_member;
269 if (ProcessMember(members, new_member))
270 resource.ClusterMembersList.push_back(new_member);
272 members = members->next;
275 aCurSubNode = aCurSubNode->next;
278 // Test: Il faut au moins un membre pour que le cluster soit correct !
279 if (resource.ClusterMembersList.empty())
281 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! found a cluster without a member" << std::endl;
282 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! this cluster will not be added" << std::endl;
289 SALOME_ResourcesCatalog_Handler::ProcessMember(xmlNodePtr member_descr, ParserResourcesClusterMembersType & resource)
291 if (xmlHasProp(member_descr, (const xmlChar*)test_hostname))
293 xmlChar* hostname = xmlGetProp(member_descr, (const xmlChar*)test_hostname);
294 resource.HostName = (const char*)hostname;
299 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a hostname" << std::endl;
300 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
304 if (xmlHasProp(member_descr, (const xmlChar*)test_protocol))
306 xmlChar* protocol= xmlGetProp(member_descr, (const xmlChar*)test_protocol);
310 resource.Protocol = rsh;
313 if (protocol[1] == 's')
314 resource.Protocol = ssh;
316 resource.Protocol = srun;
319 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine with a bad protocol" << std::endl;
320 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
327 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a protocol" << std::endl;
328 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
332 if (xmlHasProp(member_descr, (const xmlChar*)test_cluster_internal_protocol))
334 xmlChar* iprotocol= xmlGetProp(member_descr, (const xmlChar*)test_cluster_internal_protocol);
335 switch (iprotocol[0])
338 resource.ClusterInternalProtocol = rsh;
341 if (iprotocol[1] == 's')
342 resource.ClusterInternalProtocol = ssh;
344 resource.ClusterInternalProtocol = srun;
347 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine with a bad protocol" << std::endl;
348 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
355 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a protocol" << std::endl;
356 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
360 if (xmlHasProp(member_descr, (const xmlChar*)test_user_name))
362 xmlChar* user_name= xmlGetProp(member_descr, (const xmlChar*)test_user_name);
363 resource.UserName = (const char*)user_name;
368 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a user name" << std::endl;
369 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
373 if (xmlHasProp(member_descr, (const xmlChar*)test_nb_of_nodes))
375 xmlChar* nb_of_nodes = xmlGetProp(member_descr, (const xmlChar*)test_nb_of_nodes);
376 resource.DataForSort._nbOfNodes = atoi((const char*)nb_of_nodes);
377 xmlFree(nb_of_nodes);
381 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a nbOfNodes" << std::endl;
382 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
386 if (xmlHasProp(member_descr, (const xmlChar*)test_nb_of_proc_per_node))
388 xmlChar* nb_of_proc_per_node = xmlGetProp(member_descr, (const xmlChar*)test_nb_of_proc_per_node);
389 resource.DataForSort._nbOfProcPerNode = atoi((const char*)nb_of_proc_per_node);
390 xmlFree(nb_of_proc_per_node);
394 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a nbOfProcPerNode" << std::endl;
395 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
399 if (xmlHasProp(member_descr, (const xmlChar*)test_appli_path))
401 xmlChar* appli_path = xmlGetProp(member_descr, (const xmlChar*)test_appli_path);
402 resource.AppliPath = (const char*)appli_path;
407 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a AppliPath" << std::endl;
408 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
415 SALOME_ResourcesCatalog_Handler::ProcessMachine(xmlNodePtr machine_descr, ParserResourcesType & resource)
417 if (xmlHasProp(machine_descr, (const xmlChar*)test_hostname))
419 xmlChar* hostname = xmlGetProp(machine_descr, (const xmlChar*)test_hostname);
420 resource.HostName = (const char*)hostname;
425 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMachine : Warning found a machine without a hostname" << std::endl;
426 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMachine : Warning this machine will not be added" << std::endl;
430 if (xmlHasProp(machine_descr, (const xmlChar*)test_name))
432 xmlChar* name = xmlGetProp(machine_descr, (const xmlChar*)test_name);
433 resource.Name = (const char*)name;
434 resource.DataForSort._Name = (const char*)name;
439 resource.Name = resource.HostName;
440 resource.DataForSort._Name = resource.HostName;
441 std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMachine : !!! Warning !!! No Name found use Hostname for resource: " << _resource.Name << std::endl;
444 if (xmlHasProp(machine_descr, (const xmlChar*)test_batch_queue))
446 xmlChar* batch_queue = xmlGetProp(machine_descr, (const xmlChar*)test_batch_queue);
447 resource.batchQueue = (const char*)batch_queue;
448 xmlFree(batch_queue);
451 resource.batchQueue = "";
453 if (xmlHasProp(machine_descr, (const xmlChar*)test_user_commands))
455 xmlChar* user_commands= xmlGetProp(machine_descr, (const xmlChar*)test_user_commands);
456 resource.userCommands = (const char*)user_commands;
457 xmlFree(user_commands);
460 resource.userCommands = "";
462 if (xmlHasProp(machine_descr, (const xmlChar*)test_protocol))
464 xmlChar* protocol= xmlGetProp(machine_descr, (const xmlChar*)test_protocol);
465 switch ( protocol[0])
468 resource.Protocol = rsh;
471 if (protocol[1] == 's')
472 resource.Protocol = ssh;
474 resource.Protocol = srun;
477 // If it'not in all theses cases, the protocol is affected to rsh
478 resource.Protocol = rsh;
484 resource.Protocol = rsh;
486 if (xmlHasProp(machine_descr, (const xmlChar*)test_cluster_internal_protocol))
488 xmlChar* iprotocol= xmlGetProp(machine_descr, (const xmlChar*)test_cluster_internal_protocol);
489 switch ( iprotocol[0])
492 resource.ClusterInternalProtocol = rsh;
495 if (iprotocol[1] == 's')
496 resource.ClusterInternalProtocol = ssh;
498 resource.ClusterInternalProtocol = srun;
501 // If it'not in all theses cases, the protocol is affected to rsh
502 resource.ClusterInternalProtocol = rsh;
508 resource.ClusterInternalProtocol = resource.Protocol;
510 if (xmlHasProp(machine_descr, (const xmlChar*)test_mode))
512 xmlChar* mode=xmlGetProp(machine_descr, (const xmlChar*)test_mode);
516 resource.Mode = interactive;
519 resource.Mode = batch;
522 // If it'not in all theses cases, the mode is affected to interactive
523 resource.Mode = interactive;
529 resource.Mode = interactive;
531 if (xmlHasProp(machine_descr, (const xmlChar*)test_batch))
533 xmlChar* batch = xmlGetProp(machine_descr, (const xmlChar*)test_batch);
534 std::string aBatch = (const char*)batch;
537 resource.Batch = pbs;
538 else if (aBatch == "lsf")
539 resource.Batch = lsf;
540 else if (aBatch == "sge")
541 resource.Batch = sge;
542 else if (aBatch == "ssh_batch")
543 resource.Batch = ssh_batch;
544 else if (aBatch == "ccc")
545 resource.Batch = ccc;
546 else if (aBatch == "slurm")
547 resource.Batch = slurm;
548 else if (aBatch == "ll")
551 resource.Batch = none;
554 if (xmlHasProp(machine_descr, (const xmlChar*)test_mpi))
556 xmlChar* mpi = xmlGetProp(machine_descr, (const xmlChar*)test_mpi);
557 std::string anMpi = (const char*)mpi;
561 else if (anMpi == "mpich1")
562 resource.mpi = mpich1;
563 else if (anMpi == "mpich2")
564 resource.mpi = mpich2;
565 else if (anMpi == "openmpi")
566 resource.mpi = openmpi;
567 else if (anMpi == "slurmmpi")
568 resource.mpi = slurmmpi;
569 else if (anMpi == "prun")
572 resource.mpi = nompi;
575 if (xmlHasProp(machine_descr, (const xmlChar*)test_user_name))
577 xmlChar* user_name= xmlGetProp(machine_descr, (const xmlChar*)test_user_name);
578 resource.UserName = (const char*)user_name;
582 if (xmlHasProp(machine_descr, (const xmlChar*)test_appli_path))
584 xmlChar* appli_path = xmlGetProp(machine_descr, (const xmlChar*)test_appli_path);
585 resource.AppliPath = (const char*)appli_path;
589 if (xmlHasProp(machine_descr, (const xmlChar*)test_os))
591 xmlChar* os = xmlGetProp(machine_descr, (const xmlChar*)test_os);
592 resource.OS = (const char*)os;
596 if (xmlHasProp(machine_descr, (const xmlChar*)test_mem_in_mb))
598 xmlChar* mem_in_mb = xmlGetProp(machine_descr, (const xmlChar*)test_mem_in_mb);
599 resource.DataForSort._memInMB = atoi((const char*)mem_in_mb);
603 if (xmlHasProp(machine_descr, (const xmlChar*)test_cpu_freq_mhz))
605 xmlChar* cpu_freq_mhz = xmlGetProp(machine_descr, (const xmlChar*)test_cpu_freq_mhz);
606 resource.DataForSort._CPUFreqMHz = atoi((const char*)cpu_freq_mhz);
607 xmlFree(cpu_freq_mhz);
610 if (xmlHasProp(machine_descr, (const xmlChar*)test_nb_of_nodes))
612 xmlChar* nb_of_nodes = xmlGetProp(machine_descr, (const xmlChar*)test_nb_of_nodes);
613 resource.DataForSort._nbOfNodes = atoi((const char*)nb_of_nodes);
614 xmlFree(nb_of_nodes);
617 if (xmlHasProp(machine_descr, (const xmlChar*)test_nb_of_proc_per_node))
619 xmlChar* nb_of_proc_per_node = xmlGetProp(machine_descr, (const xmlChar*)test_nb_of_proc_per_node);
620 resource.DataForSort._nbOfProcPerNode = atoi((const char*)nb_of_proc_per_node);
621 xmlFree(nb_of_proc_per_node);
624 // Process children nodes
625 xmlNodePtr aCurSubNode = machine_descr->xmlChildrenNode;
626 while(aCurSubNode != NULL)
628 // Process components
629 if ( !xmlStrcmp(aCurSubNode->name, (const xmlChar*)test_components) )
631 //If a component is given, it is in a module with the same name
632 //except if the module name is given
633 if (xmlHasProp(aCurSubNode, (const xmlChar*)test_component_name))
635 xmlChar* component_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_component_name);
636 std::string aComponentName = (const char*)component_name;
637 _resource.ComponentsList.push_back(aComponentName);
638 if (xmlHasProp(aCurSubNode, (const xmlChar*)test_module_name))
640 xmlChar* module_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_module_name);
641 std::string aModuleName = (const char*)module_name;
642 _resource.ModulesList.push_back(aModuleName);
643 xmlFree(module_name);
646 _resource.ModulesList.push_back(aComponentName);
647 xmlFree(component_name);
651 else if ( !xmlStrcmp(aCurSubNode->name, (const xmlChar*)test_modules) )
653 // If a module is given, we create an entry in componentsList and modulesList
654 // with the same name (module == component)
655 if (xmlHasProp(aCurSubNode, (const xmlChar*)test_module_name))
657 xmlChar* component_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_module_name);
658 std::string aComponentName = (const char*)component_name;
659 _resource.ComponentsList.push_back(aComponentName);
660 _resource.ModulesList.push_back(aComponentName);
661 xmlFree(component_name);
664 aCurSubNode = aCurSubNode->next;
669 //=============================================================================
671 * Fill the document tree in xml file, used to write in an xml file.
672 * \param theDoc document to fill.
674 //=============================================================================
676 void SALOME_ResourcesCatalog_Handler::PrepareDocToXmlFile(xmlDocPtr theDoc)
679 xmlNodePtr root_node = NULL, node = NULL, node1 = NULL;
681 root_node = xmlNewNode(NULL, BAD_CAST "resources");
682 xmlDocSetRootElement(theDoc, root_node);
684 std::map<std::string, ParserResourcesType>::iterator iter = _resources_list.begin();
685 for (; iter != _resources_list.end(); iter++)
687 node = xmlNewChild(root_node, NULL, BAD_CAST test_machine, NULL);
688 RES_MESSAGE("Add resource name = " << (*iter).second.Name.c_str());
689 xmlNewProp(node, BAD_CAST test_name, BAD_CAST (*iter).second.Name.c_str());
690 xmlNewProp(node, BAD_CAST test_hostname, BAD_CAST (*iter).second.HostName.c_str());
691 xmlNewProp(node, BAD_CAST test_appli_path, BAD_CAST (*iter).second.AppliPath.c_str());
692 xmlNewProp(node, BAD_CAST test_batch_queue, BAD_CAST (*iter).second.batchQueue.c_str());
693 xmlNewProp(node, BAD_CAST test_user_commands, BAD_CAST (*iter).second.userCommands.c_str());
695 switch ((*iter).second.Protocol)
698 xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "rsh");
701 xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "ssh");
704 xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "srun");
707 xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "rsh");
710 switch ((*iter).second.ClusterInternalProtocol)
713 xmlNewProp(node, BAD_CAST test_cluster_internal_protocol, BAD_CAST "rsh");
716 xmlNewProp(node, BAD_CAST test_cluster_internal_protocol, BAD_CAST "ssh");
719 xmlNewProp(node, BAD_CAST test_cluster_internal_protocol, BAD_CAST "srun");
722 xmlNewProp(node, BAD_CAST test_cluster_internal_protocol, BAD_CAST "rsh");
725 switch ((*iter).second.Mode)
728 xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "interactive");
731 xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "batch");
734 xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "interactive");
737 switch ((*iter).second.Batch)
740 xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "pbs");
743 xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "lsf");
746 xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "sge");
749 xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "ccc");
752 xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "slurm");
755 xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "ssh_batch");
758 xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "ll");
761 xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "");
764 switch ((*iter).second.mpi)
767 xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "lam");
770 xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "mpich1");
773 xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "mpich2");
776 xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "openmpi");
779 xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "slurmmpi");
782 xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "prun");
785 xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "");
788 xmlNewProp(node, BAD_CAST test_user_name, BAD_CAST (*iter).second.UserName.c_str());
790 std::vector<std::string>::const_iterator iter2 = (*iter).second.ComponentsList.begin();
791 for(;iter2 != (*iter).second.ComponentsList.end(); iter2++)
793 node1 = xmlNewChild(node, NULL, BAD_CAST test_components, NULL);
794 xmlNewProp(node1, BAD_CAST test_component_name, BAD_CAST (*iter2).c_str());
797 xmlNewProp(node, BAD_CAST test_os, BAD_CAST (*iter).second.OS.c_str());
798 std::ostringstream mem_stream;
799 mem_stream << (*iter).second.DataForSort._memInMB;
800 xmlNewProp(node, BAD_CAST test_mem_in_mb, BAD_CAST mem_stream.str().c_str());
801 std::ostringstream cpu_stream;
802 cpu_stream << (*iter).second.DataForSort._CPUFreqMHz;
803 xmlNewProp(node, BAD_CAST test_cpu_freq_mhz, BAD_CAST cpu_stream.str().c_str());
804 std::ostringstream nb_nodes_stream;
805 nb_nodes_stream << (*iter).second.DataForSort._nbOfNodes;
806 xmlNewProp(node, BAD_CAST test_nb_of_nodes, BAD_CAST nb_nodes_stream.str().c_str());
807 std::ostringstream nb_proc_per_nodes_stream;
808 nb_proc_per_nodes_stream << (*iter).second.DataForSort._nbOfProcPerNode;
809 xmlNewProp(node, BAD_CAST test_nb_of_proc_per_node, BAD_CAST nb_proc_per_nodes_stream.str().c_str());