mirror of
https://gitlab.rtems.org/rtems/rtos/rtems.git
synced 2025-12-10 01:23:22 +00:00
11b1063d2e
* sp13/sp13.scn: Id in screen had wrong class field value. * sp13/system.h: Account for message buffer memory. * sp13/task2.c: Remove unnecessary check for failure.
139 lines
3.4 KiB
C
139 lines
3.4 KiB
C
/* Task_2
|
|
*
|
|
* This routine serves as a test task. Multiple tasks are required to
|
|
* verify all message manager capabilities.
|
|
*
|
|
* Input parameters:
|
|
* argument - task argument
|
|
*
|
|
* Output parameters: NONE
|
|
*
|
|
* COPYRIGHT (c) 1989-1999.
|
|
* On-Line Applications Research Corporation (OAR).
|
|
*
|
|
* The license and distribution terms for this file may be
|
|
* found in the file LICENSE in this distribution or at
|
|
* http://www.OARcorp.com/rtems/license.html.
|
|
*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "system.h"
|
|
|
|
#define MESSAGE_SIZE (sizeof(long) * 4)
|
|
|
|
rtems_task Task_2(
|
|
rtems_task_argument argument
|
|
)
|
|
{
|
|
long buffer[ 4 ];
|
|
rtems_unsigned32 size;
|
|
rtems_task_priority previous_priority;
|
|
rtems_status_code status;
|
|
|
|
puts(
|
|
"TA2 - rtems_message_queue_receive - receive from queue 1 - RTEMS_NO_WAIT"
|
|
);
|
|
status = rtems_message_queue_receive(
|
|
Queue_id[ 1 ],
|
|
buffer,
|
|
&size,
|
|
RTEMS_NO_WAIT,
|
|
RTEMS_NO_TIMEOUT
|
|
);
|
|
directive_failed( status, "rtems_message_queue_receive" );
|
|
puts_nocr( "TA2 - buffer received: " );
|
|
Put_buffer( buffer );
|
|
new_line;
|
|
|
|
puts(
|
|
"TA2 - rtems_message_queue_receive - receive from queue 1 - "
|
|
"RTEMS_WAIT FOREVER"
|
|
);
|
|
status = rtems_message_queue_receive(
|
|
Queue_id[ 1 ],
|
|
buffer,
|
|
&size,
|
|
RTEMS_DEFAULT_OPTIONS,
|
|
RTEMS_NO_TIMEOUT
|
|
);
|
|
directive_failed( status, "rtems_message_queue_receive" );
|
|
puts_nocr( "TA2 - buffer received: " );
|
|
Put_buffer( buffer );
|
|
new_line;
|
|
|
|
puts(
|
|
"TA2 - rtems_message_queue_receive - receive from queue 1 - "
|
|
"RTEMS_WAIT FOREVER"
|
|
);
|
|
status = rtems_message_queue_receive(
|
|
Queue_id[ 1 ],
|
|
buffer,
|
|
&size,
|
|
RTEMS_DEFAULT_OPTIONS,
|
|
RTEMS_NO_TIMEOUT
|
|
);
|
|
directive_failed( status, "rtems_message_queue_receive" );
|
|
puts_nocr( "TA2 - buffer received: " );
|
|
Put_buffer( buffer );
|
|
new_line;
|
|
|
|
puts( "TA2 - rtems_task_set_priority - make self highest priority task" );
|
|
status = rtems_task_set_priority( RTEMS_SELF, 3, &previous_priority );
|
|
directive_failed( status, "rtems_task_set_priority" );
|
|
|
|
puts(
|
|
"TA2 - rtems_message_queue_receive - receive from queue 2 - "
|
|
"RTEMS_WAIT FOREVER"
|
|
);
|
|
status = rtems_message_queue_receive(
|
|
Queue_id[ 2 ],
|
|
buffer,
|
|
&size,
|
|
RTEMS_DEFAULT_OPTIONS,
|
|
RTEMS_NO_TIMEOUT
|
|
);
|
|
directive_failed( status, "rtems_message_queue_receive" );
|
|
puts_nocr( "TA2 - buffer received: " );
|
|
Put_buffer( buffer );
|
|
new_line;
|
|
|
|
Fill_buffer( "BUFFER 2 TO Q 2", (long *)buffer );
|
|
puts( "TA2 - rtems_message_queue_send - BUFFER 2 TO Q 2" );
|
|
status = rtems_message_queue_send( Queue_id[ 2 ], buffer, MESSAGE_SIZE );
|
|
directive_failed( status, "rtems_message_queue_send" );
|
|
|
|
puts(
|
|
"TA2 - rtems_message_queue_receive - receive from queue 1 - "
|
|
"10 second timeout"
|
|
);
|
|
status = rtems_message_queue_receive(
|
|
Queue_id[ 1 ],
|
|
buffer,
|
|
&size,
|
|
RTEMS_DEFAULT_OPTIONS,
|
|
10 * TICKS_PER_SECOND
|
|
);
|
|
directive_failed( status, "rtems_message_queue_receive" );
|
|
puts_nocr( "TA2 - buffer received: " );
|
|
Put_buffer( buffer );
|
|
new_line;
|
|
|
|
puts(
|
|
"TA2 - rtems_message_queue_receive - receive from queue 3 - "
|
|
"RTEMS_WAIT FOREVER"
|
|
);
|
|
status = rtems_message_queue_receive(
|
|
Queue_id[ 3 ],
|
|
buffer,
|
|
&size,
|
|
RTEMS_DEFAULT_OPTIONS,
|
|
RTEMS_NO_TIMEOUT
|
|
);
|
|
directive_failed( status, "rtems_message_queue_receive" );
|
|
puts_nocr( "TA2 - buffer received: " );
|
|
Put_buffer( buffer );
|
|
new_line;
|
|
|
|
}
|