URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [sptests/] [sp13/] [task2.c] - Rev 382
Go to most recent revision | Compare with Previous | Blame | View Log
/* 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: task2.c,v 1.2 2001-09-27 12:02:32 chris Exp $ */ #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" ); directive_failed( status, "rtems_message_queue_send" ); 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; }
Go to most recent revision | Compare with Previous | Blame | View Log