summaryrefslogtreecommitdiff
path: root/TAO/examples/POA/TIE/server.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/examples/POA/TIE/server.cpp')
-rw-r--r--TAO/examples/POA/TIE/server.cpp284
1 files changed, 0 insertions, 284 deletions
diff --git a/TAO/examples/POA/TIE/server.cpp b/TAO/examples/POA/TIE/server.cpp
deleted file mode 100644
index 8264cb6f8bf..00000000000
--- a/TAO/examples/POA/TIE/server.cpp
+++ /dev/null
@@ -1,284 +0,0 @@
-// $Id$
-
-// =========================================================================
-// = LIBRARY
-// TAO/tests/POA/TIE
-//
-// = FILENAME
-// server.cpp
-//
-// = DESCRIPTION
-// In this example,
-//
-// = AUTHOR
-// Irfan Pyarali
-// =========================================================================
-
-#include "ace/streams.h"
-#include "Foo_i.h"
-
-ACE_RCSID(TIE, server, "$Id$")
-
-int
-main (int argc, char **argv)
-{
- ACE_DECLARE_NEW_CORBA_ENV;
-
- char str[256];
-
- ACE_TRY
- {
- ACE_OS::strcpy (str, "CORBA::ORB_init");
-
- // Initialize the ORB first.
- CORBA::ORB_var orb = CORBA::ORB_init (argc, argv, 0, ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- // Obtain the RootPOA.
- CORBA::Object_var obj = orb->resolve_initial_references ("RootPOA");
-
- ACE_OS::strcpy (str, "PortableServer::POA::_narrow");
-
- // Get the POA_var object from Object_var.
- PortableServer::POA_var root_poa =
- PortableServer::POA::_narrow (obj.in (), ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- ACE_OS::strcpy (str, "PortableServer::POA::the_POAManager");
- // Get the POAManager of the RootPOA.
- PortableServer::POAManager_var poa_manager =
- root_poa->the_POAManager (ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
-
- // Policies for the firstPOA to be created.
- CORBA::PolicyList policies (2);
- policies.length (2);
-
- ACE_OS::strcpy (str,"PortableServer::POA::create_lifespan_policy");
- // Lifespan policy
- policies[0] =
- root_poa->create_lifespan_policy (PortableServer::PERSISTENT, ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- ACE_OS::strcpy (str, "PortableServer::POA::create_implicit_activation_policy");
- // Implicit activation policy
- policies[1] =
- root_poa->create_implicit_activation_policy (PortableServer::IMPLICIT_ACTIVATION, ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- ACE_OS::strcpy (str, "PortableServer::POA::create_POA");
- // Create the firstPOA under the RootPOA.
- ACE_CString name = "firstPOA";
- PortableServer::POA_var first_poa =
- root_poa->create_POA (name.c_str (),
- poa_manager.in (),
- policies,
- ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
-
- ACE_OS::strcpy (str,"PortableServer::POA::create_POA");
-
- // Creation of POAs is over. Destroy the Policy objects.
- for (CORBA::ULong i = 0;
- i < policies.length ();
- ++i)
- {
- CORBA::Policy_ptr policy = policies[i];
- policy->destroy (ACE_TRY_ENV);
- ACE_TRY_CHECK;
- }
-
- // Create A_i
- A_i a_impl (27, first_poa.in ());
-
- // Create B_i
- Outer_i::B_i b_impl (28, first_poa.in ());
-
- // Create C_i
- Outer_i::Inner_i::C_i c_impl (29, first_poa.in ());
-
- // Create A tie
- Tie_i a_tie_i (30);
- POA_A_tie <Tie_i> a_tie_impl (a_tie_i, first_poa.in ());
-
-#if defined (ACE_HAS_USING_KEYWORD)
-
- // Create B tie
- Tie_i b_tie_i (31);
- POA_Outer::B_tie <Tie_i> b_tie_impl (b_tie_i, first_poa.in ());
-
- // Create C tie
- Tie_i c_tie_i (32);
- POA_Outer::Inner::C_tie <Tie_i> c_tie_impl (c_tie_i, first_poa.in ());
-
-#endif /* ACE_HAS_USING_KEYWORD */
-
- ACE_OS::strcpy (str, "POA_A::_this");
- // Get Object Reference for the a_impl object.
- A_var a = a_impl._this (ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
-
- ACE_OS::strcpy (str, "POA_Outer::B::_this");
- // Get Object Reference for the b_impl object.
- Outer::B_var b = b_impl._this (ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- ACE_OS::strcpy (str, "POA_Outer::Inner::C::_this");
- // Get Object Reference for the c_impl object.
- Outer::Inner::C_var c = c_impl._this (ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- ACE_OS::strcpy (str, "POA_A::_this");
- // Get Object Reference for the a_tie_impl object.
- A_var a_tie = a_tie_impl._this (ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
-
-#if defined (ACE_HAS_USING_KEYWORD)
- ACE_OS::strcpy (str, "POA_Outer::B::_this");
- // Get Object Reference for the a_tie_impl object.
- Outer::B_var b_tie = b_tie_impl._this (ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
-
- ACE_OS::strcpy (str, "POA_Outer::C::_this");
- // Get Object Reference for the c_tie_impl object.
- Outer::Inner::C_var c_tie = c_tie_impl._this (ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
-#endif /* ACE_HAS_USING_KEYWORD */
-
- ACE_OS::strcpy (str, "CORBA::ORB::object_to_string");
- // Stringyfy all the object references and print them out.
- CORBA::String_var first_ior =
- orb->object_to_string (a.in (), ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- // Stringyfy all the object references and print them out.
- CORBA::String_var second_ior =
- orb->object_to_string (b.in (), ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- // Stringyfy all the object references and print them out.
- CORBA::String_var third_ior =
- orb->object_to_string (c.in (), ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- // Stringyfy all the object references and print them out.
- CORBA::String_var forth_ior =
- orb->object_to_string (a_tie.in (), ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- FILE *output_file_1 = ACE_OS::fopen ("ior_1", "w");
- FILE *output_file_2 = ACE_OS::fopen ("ior_2", "w");
- FILE *output_file_3 = ACE_OS::fopen ("ior_3", "w");
- FILE *output_file_4 = ACE_OS::fopen ("ior_4", "w");
-
- if (output_file_1)
- ACE_OS::fprintf (output_file_1,
- "%s",
- first_ior.in ());
- if (output_file_2)
- ACE_OS::fprintf (output_file_2,
- "%s",
- second_ior.in ());
- if (output_file_3)
- ACE_OS::fprintf (output_file_3,
- "%s",
- third_ior.in ());
- if (output_file_4)
- ACE_OS::fprintf (output_file_4,
- "%s",
- forth_ior.in ());
-
- ACE_OS::fclose (output_file_1);
- ACE_OS::fclose (output_file_2);
- ACE_OS::fclose (output_file_3);
- ACE_OS::fclose (output_file_4);
-
-#if defined (ACE_HAS_USING_KEYWORD)
-
- // Stringyfy all the object references and print them out.
- CORBA::String_var fifth_ior =
- orb->object_to_string (b_tie.in (), ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
-
- // Stringyfy all the object references and print them out.
- CORBA::String_var sixth_ior =
- orb->object_to_string (c_tie.in (), ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- FILE *output_file_5 = ACE_OS::fopen ("ior_5", "w");
- FILE *output_file_6 = ACE_OS::fopen ("ior_6", "w");
-
- if (output_file_5)
- ACE_OS::fprintf (output_file_5,
- "%s",
- fifth_ior.in ());
- if (output_file_6)
- ACE_OS::fprintf (output_file_6,
- "%s",
- sixth_ior.in ());
-
- ACE_OS::fclose (output_file_5);
- ACE_OS::fclose (output_file_6);
-
-#endif /* ACE_HAS_USING_KEYWORD */
-
- ACE_DEBUG ((LM_DEBUG,
- "%s\n%s\n%s\n%s\n",
- first_ior.in (),
- second_ior.in (),
- third_ior.in (),
- forth_ior.in ()));
-
-#if defined (ACE_HAS_USING_KEYWORD)
-
- ACE_DEBUG ((LM_DEBUG,
- "%s\n%s\n",
- fifth_ior.in (),
- sixth_ior.in ()));
-
-#endif /* ACE_HAS_USING_KEYWORD */
-
- poa_manager->activate (ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- if (orb->run () == -1)
- ACE_ERROR_RETURN ((LM_ERROR, "%p\n", "CORBA::ORB::run"), -1);
-
- ACE_OS::strcpy (str, "PortableServer::POA::destroy");
- // Destroy RootPOA.
- root_poa->destroy (1,
- 1,
- ACE_TRY_ENV);
- ACE_TRY_CHECK;
- }
- ACE_CATCHANY
- {
- ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, str);
- return -1;
- }
- ACE_ENDTRY;
- ACE_CHECK_RETURN (-1);
-
- return 0;
-}
-
-#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION)
-template class POA_A_tie<Tie_i>;
-#if defined (ACE_HAS_USING_KEYWORD)
-template class POA_Outer::B_tie <Tie_i>;
-template class POA_Outer::Inner::C_tie <Tie_i>;
-#endif /* ACE_HAS_USING_KEYWORD */
-#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA)
-#pragma instantiate POA_A_tie<Tie_i>
-#if defined (ACE_HAS_USING_KEYWORD)
-#pragma instantiate POA_Outer::B_tie <Tie_i>
-#pragma instantiate POA_Outer::Inner::C_tie <Tie_i>
-#endif /* ACE_HAS_USING_KEYWORD */
-#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */
View Lorry Controller Status