TAO/orbsvcs/tests/Property/server.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    server.cpp
   5  *
   6  *  Test server for the CosPropertyService
   7  *
   8  *  @author Alexander Babu Arulanthu <alex@cs.wustl.edu>
   9  */
  10 //=============================================================================
  11
  12
  13 #include "server.h"
  14
  15
  16 // Main program
  17
  18 int
  19 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  20 {
  21   try
  22     {
  23       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  24
  25       CORBA::Object_var poa_object = orb->resolve_initial_references("RootPOA");
  26
  27       PortableServer::POA_var root_poa =
  28         PortableServer::POA::_narrow (poa_object.in ());
  29
  30       if (CORBA::is_nil (root_poa.in ()))
  31         ACE_ERROR_RETURN ((LM_ERROR,
  32                            " (%P|%t) Panic: nil RootPOA\n"),
  33                           1);
  34
  35       PortableServer::POAManager_var poa_manager = root_poa->the_POAManager ();
  36
  37       // Using naming server.
  38       TAO_Naming_Client my_name_client;
  39       if (my_name_client.init (orb.in ()) < 0)
  40         return 1;
  41
  42       // Create PropertySetDef object and register.
  43       TAO_PropertySetDef *propsetdef_impl = 0;
  44       ACE_NEW_RETURN (propsetdef_impl,
  45                       TAO_PropertySetDef,
  46                       -1);
  47       CosPropertyService::PropertySetDef_var propsetdef =
  48         propsetdef_impl->_this ();
  49
  50       CosNaming::Name propsetdef_name (1);
  51       propsetdef_name.length (1);
  52       propsetdef_name[0].id = CORBA::string_dup ("PropertySetDef");
  53       my_name_client->bind (propsetdef_name,
  54                             propsetdef.in ());
  55       CORBA::Any any_val;
  56
  57       // Make this IOR as one of the properties in there.
  58       any_val <<= propsetdef.in ();
  59
  60       CORBA::Object_var ior = CosPropertyService::PropertySetDef::_duplicate (propsetdef.in());
  61       CORBA::Object_ptr ior_ptr = ior.in ();
  62       any_val <<= ior_ptr;
  63
  64       propsetdef_impl->define_property_with_mode ("PropertySetDef_IOR",
  65                                                   any_val,
  66                                                   CosPropertyService::fixed_readonly);
  67
  68       // Create PropertySet factory and then register.
  69       TAO_PropertySetFactory *propset_factory_impl;
  70       ACE_NEW_RETURN (propset_factory_impl,
  71                       TAO_PropertySetFactory,
  72                       -1);
  73       CosPropertyService::PropertySetFactory_var propset_factory =
  74         propset_factory_impl->_this ();
  75
  76       CosNaming::Name propset_factory_name (1);
  77       propset_factory_name.length (1);
  78       propset_factory_name[0].id = CORBA::string_dup ("PropertySetFactory");
  79       my_name_client->bind (propset_factory_name,
  80                             propset_factory.in ());
  81
  82       poa_manager->activate ();
  83
  84       // Run the ORB Event loop.
  85       orb->run ();
  86
  87       root_poa->destroy (true, true);
  88
  89       orb->destroy ();
  90     }
  91   catch (const CORBA::SystemException& sysex)
  92     {
  93       sysex._tao_print_exception ("System Exception");
  94       return 1;
  95     }
  96   catch (const CORBA::UserException& userex)
  97     {
  98       userex._tao_print_exception ("User Exception");
  99       return 1;
 100     }
 101   ACE_DEBUG ((LM_DEBUG,
 102               "\nServer is terminating"));
 103   return 0;
 104 }