source: rtems/testsuites/sptests/sp09/screen08.c @ 3a4ae6c

4.104.114.84.95
Last change on this file since 3a4ae6c was 3235ad9, checked in by Joel Sherrill <joel.sherrill@…>, on 08/23/95 at 19:30:23

Support for variable length names added to Object Handler. This supports
both fixed length "raw" names and strings from the API's point of view.

Both inline and macro implementations were tested.
  • Property mode set to 100644
File size: 4.5 KB
Line 
1/*  Screen8
2 *
3 *  This routine generates error screen 8 for test 9.
4 *
5 *  Input parameters:  NONE
6 *
7 *  Output parameters:  NONE
8 *
9 *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
10 *  On-Line Applications Research Corporation (OAR).
11 *  All rights assigned to U.S. Government, 1994.
12 *
13 *  This material may be reproduced by or for the U.S. Government pursuant
14 *  to the copyright license under the clause at DFARS 252.227-7013.  This
15 *  notice must appear in all copies of this file and its derivatives.
16 *
17 *  $Id$
18 */
19
20#include "system.h"
21
22void Screen8()
23{
24  long              buffer[ 4 ];
25  rtems_status_code status;
26
27  status = rtems_message_queue_delete( Queue_id[ 1 ] );
28  directive_failed( status, "rtems_message_queue_delete successful" );
29  puts( "TA1 - rtems_message_queue_delete - Q 1 - RTEMS_SUCCESSFUL" );
30
31  status = rtems_message_queue_create(
32    Queue_name[ 1 ],
33    2,
34    16,
35    RTEMS_DEFAULT_ATTRIBUTES,
36    &Queue_id[ 1 ]
37  );
38  directive_failed( status, "rtems_message_queue_create successful" );
39  puts(
40    "TA1 - rtems_message_queue_create - Q 1 - 2 DEEP - RTEMS_SUCCESSFUL"
41  );
42
43  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
44  directive_failed( status, "rtems_message_queue_send successful" );
45  puts( "TA1 - rtems_message_queue_send - BUFFER 1 TO Q 1 - RTEMS_SUCCESSFUL" );
46
47  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
48  directive_failed( status, "rtems_message_queue_send successful" );
49  puts( "TA1 - rtems_message_queue_send - BUFFER 2 TO Q 1 - RTEMS_SUCCESSFUL" );
50
51  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
52  fatal_directive_status(
53    status,
54    RTEMS_TOO_MANY,
55    "rtems_message_queue_send too many to limited queue"
56  );
57  puts( "TA1 - rtems_message_queue_send - BUFFER 3 TO Q 1 - RTEMS_TOO_MANY" );
58
59  status = rtems_message_queue_delete( Queue_id[ 1 ] );
60  directive_failed( status, "rtems_message_queue_delete successful" );
61  puts( "TA1 - rtems_message_queue_delete - Q 1 - RTEMS_SUCCESSFUL" );
62
63  status = rtems_message_queue_create(
64    Queue_name[ 1 ],
65    3,
66    16,
67    RTEMS_DEFAULT_ATTRIBUTES,
68    &Queue_id[ 1 ]
69  );
70  directive_failed( status, "rtems_message_queue_create successful" );
71  puts(
72    "TA1 - rtems_message_queue_create - Q 1 - 3 DEEP - RTEMS_SUCCESSFUL"
73  );
74
75  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
76  directive_failed( status, "rtems_message_queue_send successful" );
77  puts( "TA1 - rtems_message_queue_send - BUFFER 1 TO Q 1 - RTEMS_SUCCESSFUL" );
78
79  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
80  directive_failed( status, "rtems_message_queue_send successful" );
81  puts( "TA1 - rtems_message_queue_send - BUFFER 2 TO Q 1 - RTEMS_SUCCESSFUL" );
82
83  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
84  directive_failed( status, "rtems_message_queue_send successful" );
85  puts( "TA1 - rtems_message_queue_send - BUFFER 3 TO Q 1 - RTEMS_SUCCESSFUL" );
86
87  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
88  fatal_directive_status(
89    status,
90    RTEMS_TOO_MANY,
91    "rtems_message_queue_send too many to limited queue"
92  );
93  puts(
94    "TA1 - rtems_message_queue_send - BUFFER 4 TO Q 1 - RTEMS_TOO_MANY"
95  );
96
97  status = rtems_message_queue_delete( Queue_id[ 1 ] );
98  directive_failed( status, "rtems_message_queue_delete successful" );
99  puts( "TA1 - rtems_message_queue_delete - Q 1 - RTEMS_SUCCESSFUL" );
100
101  status = rtems_message_queue_create(
102    Queue_name[ 1 ],
103    3,
104    16,
105    RTEMS_DEFAULT_ATTRIBUTES,
106    &Queue_id[ 1 ]
107  );
108  directive_failed( status, "rtems_message_queue_create successful" );
109  puts(
110    "TA1 - rtems_message_queue_create - Q 1 - 3 DEEP - RTEMS_SUCCESSFUL"
111  );
112
113  puts( "TA1 - rtems_task_start - start TA3 - RTEMS_SUCCESSFUL" );
114  status = rtems_task_start( Task_id[ 3 ], Task_3, 0 );
115  directive_failed( status, "rtems_task_start of TA3" );
116
117  puts( "TA1 - rtems_task_wake_after - yield processor - RTEMS_SUCCESSFUL" );
118  status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
119  directive_failed( status, "rtems_task_wake_after (yield)" );
120
121  puts( "TA1 - rtems_message_queue_delete - delete Q 1 - RTEMS_SUCCESSFUL" );
122  status = rtems_message_queue_delete( Queue_id[ 1 ] );
123  directive_failed( status, "rtems_message_queue_delete successful" );
124
125  puts( "TA1 - rtems_task_wake_after - yield processor - RTEMS_SUCCESSFUL" );
126  status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
127  directive_failed( status, "rtems_task_wake_after (yield)" );
128}
Note: See TracBrowser for help on using the repository browser.