src/NamingService/NamingService_WaitForServerReadiness.cxx

   1 //  Copyright (C) 2007-2008  CEA/DEN, EDF R&D, OPEN CASCADE
   2 //
   3 //  Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   4 //  CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   5 //
   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.
  10 //
  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.
  15 //
  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
  19 //
  20 //  See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  21 //
  22 //  File   : NamingService_WaitForServerReadiness.cxx
  23 //  Author : Paul RASCLE (EDF)
  24 //  Module : KERNEL
  25 //  $Header$
  26 //
  27 #include "NamingService_WaitForServerReadiness.hxx"
  28 #include "utilities.h"
  29 #include <iostream>
  30 #include <ctime>
  31
  32 using namespace std;
  33
  34 // ============================================================================
  35 /*!
  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.
  44  */
  45 // ============================================================================
  46
  47
  48 void NamingService_WaitForServerReadiness(SALOME_NamingService* NS,
  49                                           string serverName)
  50 {
  51   long TIMESleep = 500000000; // 500 ms.
  52   int NumberOfTries = 40;     // total wait = 20 s.
  53   int found = 0;
  54
  55   timespec ts_req;
  56   ts_req.tv_nsec=TIMESleep;
  57   ts_req.tv_sec=0;
  58   timespec ts_rem;
  59   ts_rem.tv_nsec=0;
  60   ts_rem.tv_sec=0;
  61
  62   ASSERT(NS);
  63   for (int itry=0; itry < NumberOfTries; itry++)
  64     {
  65       try
  66         {
  67           if (serverName.length() == 0)
  68             {
  69               CORBA::String_var dummyadr = NS->getIORaddr(); // to wait for naming service
  70               found = 1;
  71               break; // naming service found
  72             }
  73           else
  74             {
  75               CORBA::Object_var obj = NS->Resolve(serverName.c_str());
  76               if (! CORBA::is_nil(obj))
  77                 {
  78                   found =1;
  79                   break; // server found, no more try to do
  80                 }
  81               MESSAGE("Server "<< serverName <<" not yet ready, waiting...");
  82 #ifndef WIN32
  83               nanosleep(&ts_req,&ts_rem); // wait before retry
  84 #else
  85               Sleep(TIMESleep/1000000);
  86 #endif
  87             }
  88         }
  89       catch( ServiceUnreachable& )
  90         {
  91           MESSAGE("CORBA::COMM_FAILURE: Naming Service not yet ready, waiting...");
  92 #ifndef WIN32
  93           nanosleep(&ts_req,&ts_rem); // wait before retry
  94 #else
  95           Sleep(TIMESleep/1000000);
  96 #endif
  97         }
  98     }
  99   if (!found)
 100     {
 101     INFOS("Server "<< serverName <<" not found, abort...");
 102     exit(EXIT_FAILURE);
 103     }
 104 }