diff options
Diffstat (limited to 'TAO/orbsvcs/tests/AVStreams/Component_Switching/sender.cpp')
-rw-r--r-- | TAO/orbsvcs/tests/AVStreams/Component_Switching/sender.cpp | 382 |
1 files changed, 382 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/AVStreams/Component_Switching/sender.cpp b/TAO/orbsvcs/tests/AVStreams/Component_Switching/sender.cpp new file mode 100644 index 00000000000..754329a698c --- /dev/null +++ b/TAO/orbsvcs/tests/AVStreams/Component_Switching/sender.cpp @@ -0,0 +1,382 @@ +// $Id$ + +#include "sender.h" +#include "ace/Get_Opt.h" +#include "ace/High_Res_Timer.h" + +typedef ACE_Singleton<Sender, ACE_Null_Mutex> SENDER; +// Create a singleton instance of the Sender. + +int +Sender_StreamEndPoint::get_callback (const char *, + TAO_AV_Callback *&callback) +{ + // Create and return the client application callback and return to the AVStreams + // for further upcalls. + callback = &this->callback_; + return 0; +} + +int +Sender_StreamEndPoint::set_protocol_object (const char *flowname, + TAO_AV_Protocol_Object *object) +{ + Connection_Manager &connection_manager = + SENDER::instance ()->connection_manager (); + + // Add to the map of protocol objects. + connection_manager.protocol_objects ().bind (flowname, + object); + + // Store the related streamctrl. + connection_manager.add_streamctrl (flowname, + this); + + return 0; +} + +CORBA::Boolean +Sender_StreamEndPoint::handle_preconnect (AVStreams::flowSpec &flowspec) +{ + // If another receiver of the same flowname is in the map, destroy + // the old stream. + for (CORBA::ULong i = 0; + i < flowspec.length (); + i++) + { + TAO_Forward_FlowSpec_Entry entry; + entry.parse (flowspec[i].in ()); + + ACE_CString flowname (entry.flowname ()); + + Connection_Manager &connection_manager = + SENDER::instance ()->connection_manager (); + + int result = + connection_manager.protocol_objects ().find (flowname); + + // If the flowname is found. + if (result == 0) + { + ACE_DEBUG ((LM_DEBUG, "\nSender switching receivers\n\n")); + + // Destroy old stream with the same flowname. + connection_manager.destroy (flowname); + } + } + return 0; +} + +Sender::Sender (void) + : sender_mmdevice_ (0), + frame_count_ (0), + filename_ ("input"), + input_file_ (0), + frame_rate_ (5), + mb_ (BUFSIZ), + sender_name_ ("sender") +{ +} + +int +Sender::parse_args (int argc, + char **argv) +{ + // Parse command line arguments + ACE_Get_Opt opts (argc, argv, "s:f:r:d"); + + int c; + while ((c= opts ()) != -1) + { + switch (c) + { + case 'f': + this->filename_ = opts.optarg; + break; + case 'r': + this->frame_rate_ = ACE_OS::atoi (opts.optarg); + break; + case 's': + this->sender_name_ = opts.optarg; + break; + case 'd': + TAO_debug_level++; + break; + default: + ACE_DEBUG ((LM_DEBUG, "Unknown Option\n")); + return -1; + } + } + return 0; +} + +int +Sender::init (int argc, + char **argv, + CORBA::Environment& ACE_TRY_ENV) +{ + // Initialize the endpoint strategy with the orb and poa. + int result = + this->endpoint_strategy_.init (TAO_AV_CORE::instance ()->orb (), + TAO_AV_CORE::instance ()->poa ()); + if (result != 0) + return result; + + // Initialize the connection manager. + result = + this->connection_manager_.init (TAO_AV_CORE::instance ()->orb ()); + if (result != 0) + return result; + + // Parse the command line arguments + result = + this->parse_args (argc, + argv); + if (result != 0) + return result; + + // Open file to read. + this->input_file_ = + ACE_OS::fopen (this->filename_.c_str (), + "r"); + + if (this->input_file_ == 0) + ACE_ERROR_RETURN ((LM_DEBUG, + "Cannot open input file %s\n", + this->filename_.c_str ()), + -1); + else + ACE_DEBUG ((LM_DEBUG, + "File opened successfully\n")); + + // Register the sender mmdevice object with the ORB + ACE_NEW_RETURN (this->sender_mmdevice_, + TAO_MMDevice (&this->endpoint_strategy_), + -1); + + // Servant Reference Counting to manage lifetime + PortableServer::ServantBase_var safe_mmdevice = + this->sender_mmdevice_; + + AVStreams::MMDevice_var mmdevice = + this->sender_mmdevice_->_this (ACE_TRY_ENV); + ACE_CHECK_RETURN (-1); + + // Register the object reference with the Naming Service and bind to + // the receivers + this->connection_manager_.bind_to_receivers (this->sender_name_, + mmdevice.in (), + ACE_TRY_ENV); + ACE_CHECK_RETURN (-1); + + // Connect to the receivers + this->connection_manager_.connect_to_receivers (ACE_TRY_ENV); + ACE_CHECK_RETURN (-1); + + return 0; +} + +// Method to send data at the specified rate +int +Sender::pace_data (CORBA::Environment &ACE_TRY_ENV) +{ + // The time that should lapse between two consecutive frames sent. + ACE_Time_Value inter_frame_time; + + // The time between two consecutive frames. + inter_frame_time.set (1 / (double) this->frame_rate_); + + if (TAO_debug_level > 0) + ACE_DEBUG ((LM_DEBUG, + "Frame Rate = %d / second\n" + "Inter Frame Time = %d (msec)\n", + this->frame_rate_, + inter_frame_time.msec ())); + + ACE_TRY + { + // The time taken for sending a frame and preparing for the next frame + ACE_High_Res_Timer elapsed_timer; + + // Continue to send data till the file is read to the end. + while (1) + { + // Read from the file into a message block. + int n = ACE_OS::fread (this->mb_.wr_ptr (), + 1, + this->mb_.size (), + this->input_file_); + + if (n < 0) + ACE_ERROR_RETURN ((LM_ERROR, + "Sender::pace_data fread failed\n"), + -1); + + if (n == 0) + { + // At end of file break the loop and end the sender. + if (TAO_debug_level > 0) + ACE_DEBUG ((LM_DEBUG,"Handle_Start:End of file\n")); + break; + } + + this->mb_.wr_ptr (n); + + if (this->frame_count_ > 1) + { + // + // Second frame and beyond + // + + // Stop the timer that was started just before the previous frame was sent. + elapsed_timer.stop (); + + // Get the time elapsed after sending the previous frame. + ACE_Time_Value elapsed_time; + elapsed_timer.elapsed_time (elapsed_time); + + if (TAO_debug_level > 0) + ACE_DEBUG ((LM_DEBUG, + "Elapsed Time = %d\n", + elapsed_time.msec ())); + + // Check to see if the inter frame time has elapsed. + if (elapsed_time < inter_frame_time) + { + // Inter frame time has not elapsed. + + // Calculate the time to wait before the next frame needs to be sent. + ACE_Time_Value wait_time (inter_frame_time - elapsed_time); + + if (TAO_debug_level > 0) + ACE_DEBUG ((LM_DEBUG, + "Wait Time = %d\n", + wait_time.msec ())); + + // Run the orb for the wait time so the sender can + // continue other orb requests. + TAO_AV_CORE::instance ()->orb ()->run (wait_time, + ACE_TRY_ENV); + ACE_TRY_CHECK; + } + } + + // Start timer before sending the frame. + elapsed_timer.start (); + + Connection_Manager::Protocol_Objects &protocol_objects = + this->connection_manager_.protocol_objects (); + + // Send frame to all receivers. + for (Connection_Manager::Protocol_Objects::iterator iterator = protocol_objects.begin (); + iterator != protocol_objects.end (); + ++iterator) + { + int result = + (*iterator).int_id_->send_frame (&this->mb_); + + if (result < 0) + ACE_ERROR_RETURN ((LM_ERROR, + "send failed:%p", + "Sender::pace_data send\n"), + -1); + } + + ACE_DEBUG ((LM_DEBUG, + "Sender::pace_data frame %d was sent succesfully\n", + ++this->frame_count_)); + + // Reset the message block. + this->mb_.reset (); + + } // end while + } + ACE_CATCHANY + { + ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, + "Sender::pace_data Failed\n"); + return -1; + } + ACE_ENDTRY; + return 0; +} + +Connection_Manager & +Sender::connection_manager (void) +{ + return this->connection_manager_; +} + +int +main (int argc, + char **argv) +{ + ACE_DECLARE_NEW_CORBA_ENV; + ACE_TRY + { + CORBA::ORB_var orb = CORBA::ORB_init (argc, + argv, + 0, + ACE_TRY_ENV); + ACE_TRY_CHECK; + + CORBA::Object_var obj + = orb->resolve_initial_references ("RootPOA", + ACE_TRY_ENV); + ACE_TRY_CHECK; + + //Get the POA_var object from Object_var + PortableServer::POA_var root_poa + = PortableServer::POA::_narrow (obj.in (), + ACE_TRY_ENV); + ACE_TRY_CHECK; + + PortableServer::POAManager_var mgr + = root_poa->the_POAManager (ACE_TRY_ENV); + ACE_TRY_CHECK; + + mgr->activate (ACE_TRY_ENV); + ACE_TRY_CHECK; + + // Initialize the AV Stream components. + TAO_AV_CORE::instance ()->init (orb.in (), + root_poa.in (), + ACE_TRY_ENV); + ACE_TRY_CHECK; + + // Initialize the Client. + int result = 0; + result = SENDER::instance ()->init (argc, + argv, + ACE_TRY_ENV); + ACE_TRY_CHECK; + + if (result < 0) + ACE_ERROR_RETURN ((LM_ERROR, + "client::init failed\n"), -1); + + SENDER::instance ()->pace_data (ACE_TRY_ENV); + ACE_TRY_CHECK; + + SENDER::instance ()->connection_manager ().destroy (ACE_TRY_ENV); + ACE_TRY_CHECK; + } + ACE_CATCHANY + { + ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,"Sender Failed\n"); + return -1; + } + ACE_ENDTRY; + ACE_CHECK_RETURN (-1); + return 0; +} + +#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION) +template class ACE_Singleton <Sender,ACE_Null_Mutex>; +template class TAO_AV_Endpoint_Reactive_Strategy_A<Sender_StreamEndPoint,TAO_VDev,AV_Null_MediaCtrl>; +template class TAO_AV_Endpoint_Reactive_Strategy<Sender_StreamEndPoint,TAO_VDev,AV_Null_MediaCtrl>; +#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA) +#pragma instantiate ACE_Singleton <Sender,ACE_Null_Mutex> +#pragma instantiate TAO_AV_Endpoint_Reactive_Strategy_A<Sender_StreamEndPoint,TAO_VDev,AV_Null_MediaCtrl> +#pragma instantiate TAO_AV_Endpoint_Reactive_Strategy<Sender_StreamEndPoint,TAO_VDev,AV_Null_MediaCtrl> +#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */ |