mptests/mp13/task1.c

0001 /* SPDX-License-Identifier: BSD-2-Clause */
0002
0003 /*  Test_task1
0004  *
0005  *  This task attempts to receive a message from a global message queue.
0006  *  If running on the node on which the queue resides, the wait is
0007  *  forever, otherwise it times out on a remote message queue.
0008  *
0009  *  Input parameters:
0010  *    argument - task argument
0011  *
0012  *  Output parameters:  NONE
0013  *
0014  *  COPYRIGHT (c) 1989-2009.
0015  *  On-Line Applications Research Corporation (OAR).
0016  *
0017  * Redistribution and use in source and binary forms, with or without
0018  * modification, are permitted provided that the following conditions
0019  * are met:
0020  * 1. Redistributions of source code must retain the above copyright
0021  *    notice, this list of conditions and the following disclaimer.
0022  * 2. Redistributions in binary form must reproduce the above copyright
0023  *    notice, this list of conditions and the following disclaimer in the
0024  *    documentation and/or other materials provided with the distribution.
0025  *
0026  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0027  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0028  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0029  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
0030  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0031  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0032  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0033  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0034  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0035  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
0036  * POSSIBILITY OF SUCH DAMAGE.
0037  */
0038
0039 #ifdef HAVE_CONFIG_H
0040 #include "config.h"
0041 #endif
0042
0043 #include "system.h"
0044
0045 rtems_task Test_task1(
0046   rtems_task_argument argument
0047 )
0048 {
0049   char              receive_buffer[16];
0050   size_t            size;
0051   rtems_status_code status;
0052
0053   puts( "Getting QID of message queue" );
0054
0055   do {
0056     status = rtems_message_queue_ident(
0057       Queue_name[ 1 ],
0058       RTEMS_SEARCH_ALL_NODES,
0059       &Queue_id[ 1 ]
0060     );
0061   } while ( !rtems_is_status_successful( status ) );
0062
0063   if ( rtems_object_get_local_node() == 1 ) {
0064     puts( "Receiving message ..." );
0065     status = rtems_message_queue_receive(
0066       Queue_id[ 1 ],
0067       receive_buffer,
0068       &size,
0069       RTEMS_DEFAULT_OPTIONS,
0070       RTEMS_NO_TIMEOUT
0071     );
0072     puts( "How did I get back from here????" );
0073     directive_failed( status, "rtems_message_queue_receive" );
0074   }
0075
0076   status = rtems_task_wake_after( rtems_clock_get_ticks_per_second() );
0077   directive_failed( status, "rtems_task_wake_after" );
0078
0079   puts( "Receiving message ..." );
0080   status = rtems_message_queue_receive(
0081     Queue_id[ 1 ],
0082     (long (*)[4])receive_buffer,
0083     &size,
0084     RTEMS_DEFAULT_OPTIONS,
0085     2 * rtems_clock_get_ticks_per_second()
0086   );
0087   fatal_directive_status(status, RTEMS_TIMEOUT, "rtems_message_queue_receive");
0088   puts( "rtems_message_queue_receive correctly returned RTEMS_TIMEOUT" );
0089
0090   puts( "Deleting self" );
0091   rtems_task_exit();
0092 }