1 // Copyright (C) 2007-2008 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
22 // File : NamingService_WaitForServerReadiness.cxx
23 // Author : Paul RASCLE (EDF)
27 #include "NamingService_WaitForServerReadiness.hxx"
28 #include "utilities.h"
34 // ============================================================================
36 * Wait until a server is registered in naming service.
37 * \param serverName name of the server to find.
38 * \param NS SALOME_NamingService object
39 * Wait until the given server is ready i.e. is name is found in namingService.
40 * Try 40 times, with 500 ms sleep between each try.
41 * If Logger is used for traces, it must be ready before this call, because
42 * SALOME_NamingService client uses SALOME traces. So, Logger readiness must be
43 * checked in Launch script before execution of WaitForServerReadiness.
45 // ============================================================================
48 void NamingService_WaitForServerReadiness(SALOME_NamingService* NS,
51 long TIMESleep = 500000000; // 500 ms.
52 int NumberOfTries = 40; // total wait = 20 s.
56 ts_req.tv_nsec=TIMESleep;
63 for (int itry=0; itry < NumberOfTries; itry++)
67 if (serverName.length() == 0)
69 CORBA::String_var dummyadr = NS->getIORaddr(); // to wait for naming service
71 break; // naming service found
75 CORBA::Object_var obj = NS->Resolve(serverName.c_str());
76 if (! CORBA::is_nil(obj))
79 break; // server found, no more try to do
81 MESSAGE("Server "<< serverName <<" not yet ready, waiting...");
83 nanosleep(&ts_req,&ts_rem); // wait before retry
85 Sleep(TIMESleep/1000000);
89 catch( ServiceUnreachable& )
91 MESSAGE("CORBA::COMM_FAILURE: Naming Service not yet ready, waiting...");
93 nanosleep(&ts_req,&ts_rem); // wait before retry
95 Sleep(TIMESleep/1000000);
101 INFOS("Server "<< serverName <<" not found, abort...");