Back to index

salome-kernel  6.5.0
Functions
SALOME_ModuleCatalog_Server.cxx File Reference
#include <iostream>
#include "SALOME_NamingService.hxx"
#include "SALOME_ModuleCatalog_impl.hxx"
#include "utilities.h"
#include "Utils_SINGLETON.hxx"

Go to the source code of this file.

Functions

int main (int argc, char **argv)

Function Documentation

int main ( int  argc,
char **  argv 
)

Definition at line 39 of file SALOME_ModuleCatalog_Server.cxx.

{
  // initialize the ORB
  CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  try 
    {
      CosNaming::NamingContext_var _rootContext, catalogContext;

      // initialize POA
      //
      long TIMESleep = 500000000;
      int NumberOfTries = 40;
#ifndef WIN32
      int a;
#endif
      timespec ts_req;
      ts_req.tv_nsec=TIMESleep;
      ts_req.tv_sec=0;
      timespec ts_rem;
      ts_rem.tv_nsec=0;
      ts_rem.tv_sec=0;
      CosNaming::NamingContext_var inc;
      PortableServer::POA_var poa;
      CORBA::Object_var theObj;
      CORBA::Object_var obj;
      CORBA::Object_var object;
      int MODULE_CATALOG=0;
      const char * Env = getenv("USE_LOGGER");
      int EnvL =0;
      if ((Env!=NULL) && (strlen(Env)))
        EnvL=1;
      CosNaming::Name name;
      name.length(1);
      name[0].id=CORBA::string_dup("Logger");    
      PortableServer::POAManager_var mgr; 
      for (int i = 1; i<=NumberOfTries; i++)
        {
          if (i!=1) 
#ifndef WIN32
            a=nanosleep(&ts_req,&ts_rem);
#else
            Sleep(TIMESleep/1000000);
#endif
          try
            { 
              obj = orb->resolve_initial_references("RootPOA");
              if(!CORBA::is_nil(obj))
                poa = PortableServer::POA::_narrow(obj);
              if(!CORBA::is_nil(poa))
                mgr = poa->the_POAManager();
              if(!CORBA::is_nil(orb)) 
                theObj = orb->resolve_initial_references("NameService"); 
            }
          catch( CORBA::SystemException& )
            {
              INFOS( "Module Catalog Server: CORBA::SystemException: Unable to contact the Naming Service" );
            }
          if (!CORBA::is_nil(theObj))
            {
              inc = CosNaming::NamingContext::_narrow(theObj);
              if(!CORBA::is_nil(inc))
                {
                  INFOS( "Module Catalog Server: Naming Service was found" );
                  if(EnvL==1)
                    {
                      CORBA::ORB_var orb1 = CORBA::ORB_init(argc,argv) ;
                      SALOME_NamingService &NS = *SINGLETON_<SALOME_NamingService>::Instance() ;
                      NS.init_orb( orb1 ) ;
                      for(int j=1; j<=NumberOfTries; j++)
                        {
                          if (j!=1) 
#ifndef WIN32
                            a=nanosleep(&ts_req, &ts_rem);
#else
                            Sleep(TIMESleep/1000000);
#endif
                          try{
                            object = inc->resolve(name);}
                          catch(CosNaming::NamingContext::NotFound)
                            {
                              INFOS( "Logger Server wasn't found" );
                            }
                          catch(...)
                            {
                              INFOS( "Module Catalog Server: Unknown exception" ) ;
                            }
                          if (!CORBA::is_nil(object))
                            {
                              INFOS( "Module Catalog Server: Logger Server was found" );
                              MODULE_CATALOG=1;
                              break;
                            }
                        }
                    }
                }
            }
          if ((MODULE_CATALOG==1)||((EnvL==0)&&(!CORBA::is_nil(inc))))
            break;
        }
  
      // Active catalog

      SALOME_ModuleCatalogImpl* Catalogue_i=new SALOME_ModuleCatalogImpl(argc, argv, orb);
      PortableServer::ObjectId_var cataid = poa->activate_object (Catalogue_i);

      //activate POA manager
      mgr->activate();
  
      CORBA::Object_var myCata = Catalogue_i->_this();
      Catalogue_i->_remove_ref();

      // initialise Naming Service
      SALOME_NamingService _NS(orb);
      // register Catalog in Naming Service
      _NS.Register(myCata ,"/Kernel/ModulCatalog");

      MESSAGE("Running CatalogServer.");

#ifdef CHECKTIME
      Utils_Timer timer;
      timer.Start();
      timer.Stop();
      timer.ShowAbsolute();
#endif
      orb->run();
      orb->destroy();
 
//       mgr->deactivate(true,true);
//       poa->destroy(1,1);

    }
  catch(CORBA::SystemException&) {
    INFOS("Caught CORBA::SystemException.")
      }
  catch(CORBA::Exception&) {
    INFOS("Caught CORBA::Exception.")
      }

  END_OF( argv[0] );
  return 0;
}

Here is the call graph for this function: