ER del_mbx( ID mbxid ) { register ITRON_Mailbox_Control *the_mailbox; Objects_Locations location; the_mailbox= _ITRON_Mailbox_Get( mbxid, &location ); switch ( location ) { case OBJECTS_ERROR: case OBJECTS_REMOTE: return _ITRON_Mailbox_Clarify_get_id_error( mbxid ); case OBJECTS_LOCAL: _Objects_Close( &_ITRON_Mailbox_Information, &the_mailbox->Object ); _CORE_message_queue_Close( &the_mailbox->message_queue, NULL, /* Multiprocessing not supported */ CORE_MESSAGE_QUEUE_STATUS_WAS_DELETED ); _ITRON_Mailbox_Free(the_mailbox); break; } _ITRON_return_errorno( E_OK ); }
ER trcv_msg( T_MSG **ppk_msg, ID mbxid, TMO tmout ) { register ITRON_Mailbox_Control *the_mailbox; Watchdog_Interval interval; bool wait; Objects_Locations location; size_t size; if (!ppk_msg) return E_PAR; interval = 0; if ( tmout == TMO_POL ) { wait = false; } else { wait = true; if ( tmout != TMO_FEVR ) interval = TOD_MILLISECONDS_TO_TICKS(tmout); } if ( wait && _ITRON_Is_in_non_task_state() ) return E_CTX; the_mailbox = _ITRON_Mailbox_Get( mbxid, &location ); switch ( location ) { #if defined(RTEMS_MULTIPROCESSING) case OBJECTS_REMOTE: #endif case OBJECTS_ERROR: return _ITRON_Mailbox_Clarify_get_id_error( mbxid ); case OBJECTS_LOCAL: _CORE_message_queue_Seize( &the_mailbox->message_queue, the_mailbox->Object.id, ppk_msg, &size, wait, interval ); break; } _ITRON_return_errorno( _ITRON_Mailbox_Translate_core_message_queue_return_code( _Thread_Executing->Wait.return_code ) ); }
ER ref_mbx( T_RMBX *pk_rmbx, ID mbxid ) { register ITRON_Mailbox_Control *the_mailbox; Objects_Locations location; Chain_Control *pending; if ( !pk_rmbx ) return E_PAR; the_mailbox = _ITRON_Mailbox_Get( mbxid, &location ); switch ( location ) { #if defined(RTEMS_MULTIPROCESSING) case OBJECTS_REMOTE: #endif case OBJECTS_ERROR: return _ITRON_Mailbox_Clarify_get_id_error( mbxid ); case OBJECTS_LOCAL: pending = &the_mailbox->message_queue.Pending_messages; if ( _Chain_Is_empty( pending ) ) pk_rmbx->pk_msg = NULL; else pk_rmbx->pk_msg = (T_MSG *) pending->first; /* * Fill in whether or not there is a waiting task */ if ( !_Thread_queue_First( &the_mailbox->message_queue.Wait_queue ) ) pk_rmbx->wtsk = FALSE; else pk_rmbx->wtsk = TRUE; break; } _ITRON_return_errorno( E_OK ); }