Subversion Repositories openrisc

/*  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;

}