1 files changed, 128 insertions, 0 deletions
diff --git a/ACE/TAO/orbsvcs/examples/RtEC/Simple/Service.cpp b/ACE/TAO/orbsvcs/examples/RtEC/Simple/Service.cpp
new file mode 100644
index 00000000000..3d40a284ca5
--- /dev/null
+++ b/ACE/TAO/orbsvcs/examples/RtEC/Simple/Service.cpp
@@ -0,0 +1,128 @@
+// $Id$
+
+#include "orbsvcs/Event/EC_Event_Channel.h"
+#include "orbsvcs/Event/EC_Default_Factory.h"
+#include "ace/Get_Opt.h"
+#include "orbsvcs/CosNamingC.h"
+#include "ace/OS_NS_stdio.h"
+
+ACE_RCSID (EC_Examples,
+           Service,
+           "$Id$")
+
+const ACE_TCHAR *ior_output_file = ACE_TEXT("ec.ior");
+
+int parse_args (int argc, ACE_TCHAR *argv[]);
+
+int
+ACE_TMAIN(int argc, ACE_TCHAR *argv[])
+{
+  TAO_EC_Default_Factory::init_svcs ();
+
+  try
+    {
+      // ORB initialization boiler plate...
+      CORBA::ORB_var orb =
+        CORBA::ORB_init (argc, argv);
+
+      CORBA::Object_var object =
+        orb->resolve_initial_references ("RootPOA");
+      PortableServer::POA_var poa =
+        PortableServer::POA::_narrow (object.in ());
+      PortableServer::POAManager_var poa_manager =
+        poa->the_POAManager ();
+      poa_manager->activate ();
+
+      // Obtain the naming service
+      CORBA::Object_var naming_obj =
+        orb->resolve_initial_references ("NameService");
+
+      if (CORBA::is_nil (naming_obj.in ()))
+        ACE_ERROR_RETURN ((LM_ERROR,
+                           " (%P|%t) Unable to get the Naming Service.\n"),
+                          1);
+
+      CosNaming::NamingContext_var naming_context =
+        CosNaming::NamingContext::_narrow (naming_obj.in ());
+
+      TAO_EC_Event_Channel_Attributes attributes (poa.in (),
+                                                  poa.in ());
+
+      TAO_EC_Event_Channel ec_impl (attributes);
+      ec_impl.activate ();
+
+      RtecEventChannelAdmin::EventChannel_var event_channel =
+        ec_impl._this ();
+
+      // Create a name.
+      CosNaming::Name name;
+      name.length (1);
+      name[0].id = CORBA::string_dup ("EventService");
+      name[0].kind = CORBA::string_dup ("");
+
+      // Register with the name server
+      naming_context->bind (name, event_channel.in ());
+
+      // Example code: How to write ior to file
+      CORBA::String_var ior =
+        orb->object_to_string (event_channel.in ());
+      ACE_DEBUG ((LM_DEBUG, "Activated as <%C>\n", ior.in ()));
+      // If the ior_output_file exists, output the ior to it
+      if (ior_output_file != 0)
+        {
+          FILE *output_file= ACE_OS::fopen (ior_output_file, "w");
+          if (output_file == 0)
+            ACE_ERROR_RETURN ((LM_ERROR,
+                               "Cannot open output file for writing IOR: %s",
+                               ior_output_file),
+                              1);
+          ACE_OS::fprintf (output_file, "%s", ior.in ());
+          ACE_OS::fclose (output_file);
+        }
+
+      // Wait for events, using work_pending()/perform_work() may help
+      // or using another thread, this example is too simple for that.
+      orb->run ();
+
+      // We don't do any cleanup, it is hard to do it after shutdown,
+      // and would complicate the example; plus it is almost
+      // impossible to do cleanup after ORB->run() because the POA is
+      // in the holding state.  Applications should use
+      // work_pending()/perform_work() to do more interesting stuff.
+      // Check the supplier for the proper way to do cleanup.
+    }
+  catch (const CORBA::Exception& ex)
+    {
+      ex._tao_print_exception ("Service");
+      return 1;
+    }
+  return 0;
+}
+
+// ****************************************************************
+
+int parse_args (int argc, ACE_TCHAR *argv[])
+{
+  ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("o:"));
+  int c;
+
+  while ((c = get_opts ()) != -1)
+    switch (c)
+      {
+      case 'o':
+        ior_output_file = get_opts.opt_arg ();
+        break;
+
+      case '?':
+      default:
+        ACE_ERROR_RETURN ((LM_ERROR,
+                           "usage:  %s "
+                           "-o <iorfile>"
+                           "\n",
+                           argv [0]),
+                          -1);
+      }
+  // Indicates sucessful parsing of the command line
+  return 0;
+}
+