1 files changed, 128 insertions, 0 deletions
diff --git a/TAO/orbsvcs/examples/RtEC/Simple/Supplier.cpp b/TAO/orbsvcs/examples/RtEC/Simple/Supplier.cpp
new file mode 100644
index 00000000000..56b0a8063cc
--- /dev/null
+++ b/TAO/orbsvcs/examples/RtEC/Simple/Supplier.cpp
@@ -0,0 +1,128 @@
+// $Id$
+
+#include "Supplier.h"
+#include "orbsvcs/RtecEventChannelAdminC.h"
+#include "orbsvcs/Event_Service_Constants.h"
+#include "orbsvcs/CosNamingC.h"
+#include "ace/OS_NS_unistd.h"
+
+ACE_RCSID (EC_Examples,
+           Supplier,
+           "$Id$")
+
+int
+main (int argc, char* argv[])
+{
+  Supplier supplier;
+
+  return supplier.run (argc, argv);
+}
+
+// ****************************************************************
+
+Supplier::Supplier (void)
+{
+}
+
+int
+Supplier::run (int argc, char* argv[])
+{
+  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 event channel from 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 ());
+
+      CosNaming::Name name (1);
+      name.length (1);
+      name[0].id = CORBA::string_dup ("EventService");
+
+      CORBA::Object_var ec_obj =
+        naming_context->resolve (name);
+
+      RtecEventChannelAdmin::EventChannel_var event_channel =
+        RtecEventChannelAdmin::EventChannel::_narrow (ec_obj.in ());
+
+      // The canonical protocol to connect to the EC
+      RtecEventChannelAdmin::SupplierAdmin_var supplier_admin =
+        event_channel->for_suppliers ();
+
+      RtecEventChannelAdmin::ProxyPushConsumer_var consumer =
+        supplier_admin->obtain_push_consumer ();
+
+      RtecEventComm::PushSupplier_var supplier =
+        this->_this ();
+
+      // Simple publication, but usually the helper classes in
+      // $TAO_ROOT/orbsvcs/Event_Utils.h are a better way to do this.
+      RtecEventChannelAdmin::SupplierQOS qos;
+      qos.publications.length (1);
+      RtecEventComm::EventHeader& h0 =
+        qos.publications[0].event.header;
+      h0.type   = ACE_ES_EVENT_UNDEFINED; // first free event type
+      h0.source = 1;                      // first free event source
+
+      consumer->connect_push_supplier (supplier.in (), qos);
+
+      // Push the events...
+      ACE_Time_Value sleep_time (0, 10000); // 10 milliseconds
+
+      RtecEventComm::EventSet event (1);
+      event.length (1);
+      event[0].header.type   = ACE_ES_EVENT_UNDEFINED;
+      event[0].header.source = 1;
+      event[0].header.ttl    = 1;
+
+      for (int i = 0; i != 2000; ++i)
+        {
+          consumer->push (event);
+          ACE_OS::sleep (sleep_time);
+        }
+
+      // Disconnect from the EC
+      consumer->disconnect_push_consumer ();
+
+      // Destroy the EC....
+      event_channel->destroy ();
+
+      // Deactivate this object...
+      PortableServer::ObjectId_var id =
+        poa->servant_to_id (this);
+      poa->deactivate_object (id.in ());
+
+      // Destroy the POA
+      poa->destroy (1, 0);
+    }
+  catch (const CORBA::Exception& ex)
+    {
+      ex._tao_print_exception ("Supplier::run");
+      return 1;
+    }
+  return 0;
+}
+
+void
+Supplier::disconnect_push_supplier (void)
+{
+}
+