source: rtems/testsuites/mptests/mp09/sendmsg.c @ ac7d5ef0

4.104.114.84.95
Last change on this file since ac7d5ef0 was ac7d5ef0, checked in by Joel Sherrill <joel.sherrill@…>, on May 11, 1995 at 5:39:37 PM

Initial revision

  • Property mode set to 100644
File size: 1.7 KB
Line 
1/*  Send_messages
2 *
3 *  This routine sends a series of three messages.
4 *  an error condition.
5 *
6 *  Input parameters:  NONE
7 *
8 *  Output parameters:  NONE
9 *
10 *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
11 *  On-Line Applications Research Corporation (OAR).
12 *  All rights assigned to U.S. Government, 1994.
13 *
14 *  This material may be reproduced by or for the U.S. Government pursuant
15 *  to the copyright license under the clause at DFARS 252.227-7013.  This
16 *  notice must appear in all copies of this file and its derivatives.
17 *
18 *  $Id$
19 */
20
21#include "system.h"
22
23void Send_messages()
24{
25  rtems_status_code status;
26  rtems_unsigned32  broadcast_count;
27
28  puts_nocr( "rtems_message_queue_send: " );
29  puts( buffer1 );
30
31  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer1 );
32  directive_failed( status, "rtems_message_queue_send" );
33
34  puts( "Delaying for a second" );
35  status = rtems_task_wake_after( TICKS_PER_SECOND );
36  directive_failed( status, "rtems_task_wake_after" );
37
38  puts_nocr( "rtems_message_queue_urgent: " );
39  puts( buffer2 );
40  status = rtems_message_queue_urgent( Queue_id[ 1 ], (long (*)[4])buffer2 );
41  directive_failed( status, "rtems_message_queue_urgent" );
42
43  puts( "Delaying for a second" );
44  status = rtems_task_wake_after( TICKS_PER_SECOND );
45  directive_failed( status, "rtems_task_wake_after" );
46
47  puts_nocr( "rtems_message_queue_broadcast: " );
48  puts( buffer3 );
49  status = rtems_message_queue_broadcast(
50    Queue_id[ 1 ],
51    (long (*)[4])buffer3,
52    &broadcast_count
53  );
54  directive_failed( status, "rtems_message_queue_broadcast" );
55
56  puts( "Delaying for a second" );
57  status = rtems_task_wake_after( TICKS_PER_SECOND );
58  directive_failed( status, "rtems_task_wake_after" );
59}
Note: See TracBrowser for help on using the repository browser.