diff options
Diffstat (limited to 'TAO/tao/Connect.cpp')
| -rw-r--r-- | TAO/tao/Connect.cpp | 665 |
1 files changed, 0 insertions, 665 deletions
diff --git a/TAO/tao/Connect.cpp b/TAO/tao/Connect.cpp deleted file mode 100644 index 5981bba8f77..00000000000 --- a/TAO/tao/Connect.cpp +++ /dev/null @@ -1,665 +0,0 @@ -// $Id$ - -#include "tao/corba.h" -#include "tao/Timeprobe.h" - -#if !defined (__ACE_INLINE__) -# include "tao/Connect.i" -#endif /* ! __ACE_INLINE__ */ - -TAO_Server_Connection_Handler::TAO_Server_Connection_Handler (ACE_Thread_Manager* t) - : TAO_SVC_HANDLER (t, 0, 0) -{ - // Grab the singleton...at some later point in time we can provide - // an argumented CTOR to have per-instance parameters. - - this->params_ = TAO_ORB_Core_instance ()->oa_params (); - ACE_ASSERT (params_ != 0); -} - -int -TAO_Server_Connection_Handler::open (void*) -{ - // Called by the <Strategy_Acceptor> when the handler is completely - // connected. - ACE_INET_Addr addr; - - if (this->peer ().get_remote_addr (addr) == -1) - return -1; - -#if !defined (ACE_LACKS_SOCKET_BUFSIZ) - int sndbufsize = - TAO_ORB_Core_instance ()->orb_params ()->sock_sndbuf_size (); - int rcvbufsize = - TAO_ORB_Core_instance ()->orb_params ()->sock_rcvbuf_size (); - - if (this->peer ().set_option (SOL_SOCKET, - SO_SNDBUF, - (void *) &sndbufsize, - sizeof (sndbufsize)) == -1 - && errno != ENOTSUP) - return -1; - else if (this->peer ().set_option (SOL_SOCKET, - SO_RCVBUF, - (void *) &rcvbufsize, - sizeof (rcvbufsize)) == -1 - && errno != ENOTSUP) - return -1; -#endif /* !ACE_LACKS_SOCKET_BUFSIZ */ - -#if defined (TCP_NODELAY) - int nodelay = 1; - if (this->peer ().set_option (IPPROTO_TCP, - TCP_NODELAY, - (void *) &nodelay, - sizeof (nodelay)) == -1) - return -1; -#endif /* TCP_NODELAY */ - - char client[MAXHOSTNAMELEN + 1]; - - if (addr.get_host_name (client, MAXHOSTNAMELEN) == -1) - { - addr.addr_to_string (client, sizeof (client)); - } - - ACE_DEBUG ((LM_DEBUG, - "(%P|%t) connection from client %s\n", - client)); - return 0; -} - -int -TAO_Server_Connection_Handler::handle_close (ACE_HANDLE handle, - ACE_Reactor_Mask rm) -{ - ACE_DEBUG ((LM_DEBUG, - "(%P|%t) TAO_Server_Connection_Handler::handle_close (%d, %d)\n", - handle, - rm)); - - return TAO_SVC_HANDLER::handle_close (handle, rm); -} - -int -TAO_Server_Connection_Handler::svc (void) -{ - // This method is called when an instance is "activated", i.e., - // turned into an active object. Presumably, activation spawns a - // thread with this method as the "worker function". - int result = 0; - - ACE_DEBUG ((LM_DEBUG, - "(%P|%t) TAO_Server_Connection_Handler::svc begin\n")); - - // Here we simply synthesize the "typical" event loop one might find - // in a reactive handler, except that this can simply block waiting - // for input. - - while ((result = handle_input ()) >= 0) - continue; - - ACE_DEBUG ((LM_DEBUG, - "(%P|%t) TAO_Server_Connection_Handler::svc end\n")); - - return result; -} - -// Extract a message from the stream associated with <peer()> and -// place it into <msg>. Return 0 if success, -1 with <errno> and -// <env> set if problems. - -TAO_Server_Connection_Handler::RequestStatus -TAO_Server_Connection_Handler::recv_request (TAO_InputCDR &msg, - CORBA::Environment &env) -{ - RequestStatus which = Error; - - TAO_SVC_HANDLER *this_ptr = this; - - switch (TAO_GIOP::recv_request (this_ptr, msg, env)) - { - case TAO_GIOP::Request: - // Received a request...just exit for further processing! - which = Request; - break; - - case TAO_GIOP::LocateRequest: - // Received a request...just exit for further processing! - which = LocateRequest; - break; - - // These messages should never be sent to the server; it's an - // error if the peer tries. Set the environment accordingly, as - // it's not yet been reported as an error. - case TAO_GIOP::Reply: - case TAO_GIOP::LocateReply: - case TAO_GIOP::CloseConnection: - default: // Unknown message - ACE_DEBUG ((LM_DEBUG, - "(%P|%t) Illegal message received by server\n")); - env.exception (new CORBA::COMM_FAILURE (CORBA::COMPLETED_NO)); - // FALLTHROUGH - - case TAO_GIOP::EndOfFile: - errno = EPIPE; - // FALLTHROUGH - - // recv_request () has already set some error in the environment - // for all "MessageError" cases, so don't clobber it. - // - // General error recovery is to send MessageError to the peer - // just in case (it'll fail on EOF) and then close the - // connection. - case TAO_GIOP::MessageError: - break; - } - - return which; -} - -// Handle processing of the request residing in <msg>, setting -// <response_required> to zero if the request is for a oneway or -// non-zero if for a two-way and <response> to any necessary response -// (including errors). In case of errors, -1 is returned and -// additional information carried in <env>. - -int -TAO_Server_Connection_Handler::handle_message (TAO_InputCDR &msg, - int &response_required, - TAO_OutputCDR &response, - CORBA::Environment &env) -{ - // This will extract the request header, set <response_required> as - // appropriate. - TAO_GIOP_RequestHeader req; - - env.clear (); - if (! req.init (msg, env)) - { - env.exception (new CORBA::COMM_FAILURE (CORBA::COMPLETED_MAYBE)); - return -1; - } - - response_required = req.response_expected; - - // So, we read a request, now handle it using something more - // primitive than a CORBA2 ServerRequest pseudo-object. - - // @@ (CJC) We need to create a TAO-specific request which will hold - // context for a request such as the connection handler ("this") over - // which the request was received so that the servicer of the request - // has sufficient context to send a response on its own. - // - // One thing which me must be careful of is that responses are sent - // with a single write so that they're not accidentally interleaved - // over the transport (as could happen using TCP). - - this->handle_request (req, msg, response, 0, env); - - CORBA::string_free (req.operation); - req.operation = 0; - - // Need to check for any errors present in <env> and set the return - // code appropriately. - return 0; -} - -int -TAO_Server_Connection_Handler::handle_locate (TAO_InputCDR &msg, - int &response_required, - TAO_OutputCDR &response, - CORBA::Environment &env) -{ - // This will extract the request header, set <response_required> as - // appropriate. - TAO_GIOP_LocateRequestHeader req; - - env.clear (); - if (! req.init (msg, env)) - { - // @@ FIXME! Need to set <env>. - response_required = 0; - return -1; - } - - response_required = 1; // Be optimistic - - // So, we read a request, now handle it using something more - // primitive than a CORBA2 ServerRequest pseudo-object. - TAO_POA *the_poa = TAO_ORB_Core_instance ()->root_poa (); - TAO_GIOP_LocateStatusType status; - - if ((the_poa->locate_servant (req.object_key, env) == 0) - && (env.exception() == 0)) - // We found it! - status = TAO_GIOP_OBJECT_HERE; - else - { - // not found, report unknown - status = TAO_GIOP_UNKNOWN_OBJECT; - - // Remove the exception - env.clear (); - } - - // Create the response. - TAO_GIOP::start_message (TAO_GIOP::LocateReply, response); - response.write_ulong (req.request_id); - response.write_ulong (status); - - // Need to check for any errors present in <env> and set the return - // code appropriately. - return 0; -} - -void -TAO_Server_Connection_Handler::handle_request (const TAO_GIOP_RequestHeader &hdr, - TAO_InputCDR &request_body, - TAO_OutputCDR &response, - TAO_Dispatch_Context *some_info, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (some_info); - - TAO_POA *the_poa = - TAO_ORB_Core_instance ()->root_poa (); - - IIOP_ServerRequest svr_req (hdr, - &request_body, - &response, - TAO_ORB_Core_instance ()->orb (), - the_poa); - - the_poa->dispatch_servant (hdr.object_key, - svr_req, - 0, // this is SunSoft IIOP residue - env); - -#if 0 - // @@ (ASG) - this commented out code must remain here since the DSI will use - // it. Please keep it here until I have figured out the best way out 03/22/98. - - // If no reply is necessary (i.e., oneway), then return! - if (hdr.response_expected == 0) - return; - - // Otherwise check for correct parameter handling, and reply as - // appropriate. - // - // NOTE: if "env" is set, it takes precedence over exceptions - // reported using the mechanism of the ServerRequest. Only system - // exceptions are reported that way ... - // - // XXX Exception reporting is ambiguous; it can be cleaner than - // this. With both language-mapped and dynamic/explicit reporting - // mechanisms, one of must be tested "first" ... so an exception - // reported using the other mechanism could be "lost". Perhaps only - // the language mapped one should be used for system exceptions. - - TAO_GIOP::start_message (TAO_GIOP_Reply, response); - TAO_GIOP_ServiceContextList resp_ctx; - resp_ctx.length (0); - response.encode (&TC_ServiceContextList, - &resp_ctx, - 0, - env); - response.write_ulong (hdr.request_id); - - CORBA::TypeCode_ptr tc; - const void *value; - - if (!svr_req.params_ && env.exception () == 0) - { - dmsg ("DSI user error, didn't supply params"); - env.exception (new CORBA::BAD_INV_ORDER (CORBA::COMPLETED_NO)); - } - - // Standard exceptions only. - if (env.exception () != 0) - { - CORBA::Environment env2; - CORBA::Exception *x = env.exception (); - CORBA::TypeCode_ptr except_tc = x->type (); - - response.write_ulong (TAO_GIOP_SYSTEM_EXCEPTION); - (void) response.encode (except_tc, x, 0, env2); - } - - // Any exception at all. - else if (svr_req.exception_) - { - CORBA::Exception *x; - CORBA::TypeCode_ptr except_tc; - - x = (CORBA::Exception *) svr_req.exception_->value (); - except_tc = svr_req.exception_->type (); - - // Finish the GIOP Reply header, then marshal the exception. - // - // XXX x->type () someday ... - if (svr_req.ex_type_ == CORBA::SYSTEM_EXCEPTION) - response.write_ulong (TAO_GIOP_SYSTEM_EXCEPTION); - else - response.write_ulong (TAO_GIOP_USER_EXCEPTION); - - (void) response.encode (except_tc, x, 0, env); - } - - // Normal reply. - else - { - // First finish the GIOP header ... - response.write_ulong (TAO_GIOP_NO_EXCEPTION); - - // ... then send any return value ... - if (svr_req.retval_) - { - tc = svr_req.retval_->type (); - value = svr_req.retval_->value (); - (void) response.encode (tc, value, 0, env); - } - - // ... Followed by "inout" and "out" parameters, left to right - for (u_int i = 0; - i < svr_req.params_->count (); - i++) - { - CORBA::NamedValue_ptr nv = svr_req.params_->item (i, env); - CORBA::Any_ptr any; - - if (!(nv->flags () & (CORBA::ARG_INOUT|CORBA::ARG_OUT))) - continue; - - any = nv->value (); - tc = any->type (); - value = any->value (); - (void) response.encode (tc, value, 0, env); - } - } -#endif /* 0 */ -} - -void -TAO_Server_Connection_Handler::send_response (TAO_OutputCDR &msg) -{ - TAO_SVC_HANDLER *this_ptr = this; - - ACE_TIMEPROBE (" -> Connection_Handler::send_response - start"); - TAO_GIOP::send_request (this_ptr, msg); - ACE_TIMEPROBE (" -> Connection_Handler::send_response - end"); -} - -int -TAO_Server_Connection_Handler::handle_input (ACE_HANDLE) -{ - // CJCXXX The tasks of this method should change to something like - // the following: - // 1. call into GIOP to pull off the header - // 2. construct a complete request - // 3. dispatch that request and return any required reply and errors - - ACE_TIMEPROBE (" -> Connection_Handler::handle_input"); - - char reqbuf[CDR::DEFAULT_BUFSIZE]; - TAO_InputCDR msg (reqbuf, sizeof(reqbuf)); - - char repbuf[CDR::DEFAULT_BUFSIZE]; -#if defined(ACE_PURIFY) - (void) ACE_OS::memset (repbuf, '\0', sizeof (repbuf)); -#endif /* ACE_PURIFY */ - TAO_OutputCDR reply (repbuf, sizeof(repbuf)); - - int result = 0; - int error_encountered = 0; - int response_required; - CORBA::Environment env; - - switch (this->recv_request (msg, env)) - { - case Request: - // Message was successfully read, so handle it. If we encounter - // any errors, <reply> will be set appropriately by the called - // code, and -1 will be returned. - if (this->handle_message (msg, response_required, reply, env) == -1) - error_encountered = 1; - break; - - case LocateRequest: - if (this->handle_locate (msg, response_required, reply, env) == -1) - error_encountered = 1; - break; - - case -1: - // Check errno and/or env for details - if (env.exception ()) - { - TAO_GIOP::make_error (reply /* ...other information... */ ); - error_encountered = 1; - // Of course, we must be careful to properly process - // end-of-file and other communications-related conditions - // here so that handle_input() returns the correct value. - } - else if (errno == EPIPE) - { - // Got a EOF - response_required = error_encountered = 0; - result = -1; - } - break; - } - - // Message was successfully read, so handle it. If we encounter - // any errors, <reply> will be set appropriately by the called - // code, and -1 will be returned. - - if (response_required || error_encountered) - this->send_response (reply); - - ACE_TIMEPROBE (" -> Connection_Handler::handle_input done"); - return result; -} - -TAO_Client_Connection_Handler::TAO_Client_Connection_Handler (ACE_Thread_Manager *t) - : TAO_SVC_HANDLER (t, 0, 0), - input_available_ (0) -{ -} - -int -TAO_Client_Connection_Handler::open (void *) -{ - // Here is where we could enable all sorts of things such as - // nonblock I/O, sock buf sizes, TCP no-delay, etc. - -#if !defined (ACE_LACKS_SOCKET_BUFSIZ) - int sndbufsize = - TAO_ORB_Core_instance ()->orb_params ()->sock_sndbuf_size (); - int rcvbufsize = - TAO_ORB_Core_instance ()->orb_params ()->sock_rcvbuf_size (); - - if (this->peer ().set_option (SOL_SOCKET, - SO_SNDBUF, - (void *) &sndbufsize, - sizeof (sndbufsize)) == -1 - && errno != ENOTSUP) - return -1; - else if (this->peer ().set_option (SOL_SOCKET, - SO_RCVBUF, - (void *) &rcvbufsize, - sizeof (rcvbufsize)) == -1 - && errno != ENOTSUP) - return -1; -#endif /* ACE_LACKS_SOCKET_BUFSIZ */ - - int nodelay = 1; - if (this->peer ().set_option (IPPROTO_TCP, - TCP_NODELAY, - (void *) &nodelay, - sizeof (nodelay)) == -1) - ACE_ERROR_RETURN ((LM_ERROR, "NODELAY failed\n"), -1); - - ACE_Reactor *r = TAO_ORB_Core_instance ()->reactor (); - - // Now we must register ourselves with the reactor for input events - // which will detect GIOP Reply messages and EOF conditions. - r->register_handler (this, ACE_Event_Handler::READ_MASK); - - // For now, we just return success - return 0; -} - -int -TAO_Client_Connection_Handler::close (u_long flags) -{ - ACE_Reactor *r = TAO_ORB_Core_instance ()->reactor (); - - // Now we must register ourselves with the reactor for input events - // which will detect GIOP Reply messages and EOF conditions. - r->remove_handler (this, ACE_Event_Handler::DONT_CALL); - - return BASECLASS::close (flags); -} - -int -TAO_Client_Connection_Handler::send_request (TAO_OutputCDR &stream, - int is_twoway) -{ - ACE_TIMEPROBE (" -> Client_Connection_Handler::send_request - start"); - - // NOTE: Here would also be a fine place to calculate a digital - // signature for the message and place it into a preallocated slot - // in the "ServiceContext". Similarly, this is a good spot to - // encrypt messages (or just the message bodies) if that's needed in - // this particular environment and that isn't handled by the - // networking infrastructure (e.g. IPSEC). - // - // We could call a template method to do all this stuff, and if the - // connection handler were obtained from a factory, then this could - // be dynamically linked in (wouldn't that be cool/freaky?) - - // Set the state so that we know we're looking for a response. - if (is_twoway) - this->expecting_response_ = 1; - - int success = (int) TAO_GIOP::send_request (this, stream); - - if (!success) - return -1; - - if (is_twoway) - { - // Go into a loop, waiting until it's safe to try to read - // something on the soket. The handle_input() method doesn't - // actualy do the read, though, proper behavior based on what is - // read may be different if we're not using GIOP above here. - // So, we leave the reading of the response to the caller of - // this method, and simply insure that this method doesn't - // return until such time as doing a recv() on the socket would - // actually produce fruit. - ACE_Reactor *r = TAO_ORB_Core_instance ()->reactor (); - - int ret = 0; - - while (ret != -1 && ! this->input_available_) - ret = r->handle_events (); - - this->input_available_ = 0; - // We can get events now, b/c we want them! - r->resume_handler (this); - // We're no longer expecting a response! - this->expecting_response_ = 0; - } - - ACE_TIMEPROBE (" -> Client_Connection_Handler::send_request - done"); - return 0; -} - -int -TAO_Client_Connection_Handler::handle_input (ACE_HANDLE) -{ - int retval = 0; - - if (this->expecting_response_) - { - this->input_available_ = 1; - // Temporarily remove ourself from notification so that if - // another sub event loop is in effect still waiting for its - // response, it doesn't spin tightly gobbling up CPU. - TAO_ORB_Core_instance ()->reactor ()->suspend_handler (this); - } - else - { - // We're a client, so we're not expecting to see input. Still - // we better check what it is! - char ignored; - ssize_t ret = this->peer().recv (&ignored, sizeof ignored, MSG_PEEK); - - // We're not expecting input at this time, so we'll always - // return -1 for now. - retval = -1; - switch (ret) - { - case -1: - // Error...but we weren't expecting input, either...what - // should we do? - ACE_ERROR ((LM_WARNING, - "Client_Connection_Handler::handle_input received " - "error while reading unexpected input; closing connection on fd %d\n", - this->peer().get_handle ())); - break; - - case 1: - // We weren't expecting input, so what should we do with it? - // Log an error, and close the connection. - ACE_ERROR ((LM_WARNING, - "Client_Connection_Handler::handle_input received " - "input while not expecting a response; closing connection on fd %d\n", - this->peer().get_handle ())); - break; - - case 0: - // This is an EOF, so we will return -1 and let - // handle_close() take over. As long as handle_close() - // calls the Svc_Handler<>::handle_close(), the socket will - // be shutdown properly. - break; - } - } - - return retval; -} - -int -TAO_Client_Connection_Handler::handle_close (ACE_HANDLE handle, - ACE_Reactor_Mask rm) -{ - ACE_DEBUG ((LM_DEBUG, - "(%P|%t) TAO_Client_Connection_Handler::handle_close (%d, %d)\n", - handle, - rm)); - - return BASECLASS::handle_close (handle, rm); -} - -#define TAO_SVC_TUPLE ACE_Svc_Tuple<TAO_Client_Connection_Handler> -#define TAO_HASH_ADDR ACE_Hash_Addr<ACE_INET_Addr> -#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION) -template class ACE_Svc_Handler<ACE_SOCK_STREAM, ACE_NULL_SYNCH>; -template class TAO_HASH_ADDR; -template class TAO_SVC_TUPLE; -template class ACE_Map_Manager<int, TAO_SVC_TUPLE*, ACE_SYNCH_RW_MUTEX>; -template class ACE_Map_Iterator_Base<int, TAO_SVC_TUPLE*, ACE_SYNCH_RW_MUTEX>; -template class ACE_Map_Iterator<int, TAO_SVC_TUPLE*, ACE_SYNCH_RW_MUTEX>; -template class ACE_Map_Reverse_Iterator<int, TAO_SVC_TUPLE*, ACE_SYNCH_RW_MUTEX>; -template class ACE_Map_Entry<int, TAO_SVC_TUPLE*>; -#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA) -#pragma instantiate ACE_Svc_Handler<ACE_SOCK_STREAM, ACE_NULL_SYNCH> -#pragma instantiate TAO_HASH_ADDR -#pragma instantiate TAO_SVC_TUPLE -#pragma instantiate ACE_Map_Manager<int, TAO_SVC_TUPLE*, ACE_SYNCH_RW_MUTEX> -#pragma instantiate ACE_Map_Iterator_Base<int, TAO_SVC_TUPLE*, ACE_SYNCH_RW_MUTEX> -#pragma instantiate ACE_Map_Iterator<int, TAO_SVC_TUPLE*, ACE_SYNCH_RW_MUTEX> -#pragma instantiate ACE_Map_Reverse_Iterator<int, TAO_SVC_TUPLE*, ACE_SYNCH_RW_MUTEX> -#pragma instantiate ACE_Map_Entry<int, TAO_SVC_TUPLE*> -#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */ |