URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [sptests/] [sp26/] [task1.c] - Blame information for rev 721

Go to most recent revision | Details | Compare with Previous | View Log


/*
 *  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: task1.c,v 1.2 2001-09-27 12:02:36 chris Exp $
 */
 
#include <stdio.h>
#include <rtems.h>
#include <rtems/error.h>
 
static rtems_id taskId1;
static rtems_id taskId2;
rtems_interval ticksPerSecond;
 
static int
isSuspended (rtems_id tid)
{
  rtems_status_code sc;
 
  sc = rtems_task_is_suspended (tid);
  if (sc == RTEMS_ALREADY_SUSPENDED)
    return 1;
  if (sc != RTEMS_SUCCESSFUL)
    printf ("rtems_task_is_suspended: %s\n", rtems_status_text (sc));
  return 0;
}
 
static void
subTask1 (rtems_task_argument arg)
{
  rtems_status_code sc;
 
  rtems_task_wake_after (ticksPerSecond * 3);
  sc = rtems_event_send (taskId2, 1);
  if (sc != RTEMS_SUCCESSFUL) {
    printf ("subTask1 - Can't send event (%d)\n", sc);
    rtems_task_suspend (RTEMS_SELF);
  }
  rtems_task_wake_after (ticksPerSecond * 3);
  printf ("subTask1 - Event sent\n");
  rtems_task_suspend (RTEMS_SELF);
  printf ("subTask1 - Back to task 1\n");
  rtems_task_wake_after (ticksPerSecond * 3);
  rtems_task_suspend (RTEMS_SELF);
}
 
static void
subTask2 (rtems_task_argument arg)
{
  rtems_status_code sc;
  rtems_event_set ev;
 
  rtems_task_wake_after (ticksPerSecond * 1);
  sc = rtems_event_receive (1, RTEMS_WAIT|RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &ev);
  if (sc != RTEMS_SUCCESSFUL) {
    printf ("subTask2 - Can't receive event (%d)\n", sc);
    rtems_task_suspend (RTEMS_SELF);
  }
  printf ("subTask2 - Task 1 suspended? - should be 0: %d\n",
     isSuspended (taskId1));
  rtems_task_wake_after (ticksPerSecond * 4);
  printf ("subTask2 - Task 1 suspended? - should be 1: %d\n",
     isSuspended (taskId1));
  rtems_task_resume (taskId1);
  printf ("subTask2 - Task 1 suspended? - should be 0: %d\n",
     isSuspended (taskId1));
  rtems_task_wake_after (ticksPerSecond * 4);
  printf ("subTask2 - Task 1 suspended? - should be 1: %d\n",
     isSuspended (taskId1));
 
  puts( "*** END OF TEST 26 ***" );
  exit( 0 );
}
 
static void
createTask (char c, rtems_id *tid)
{
  rtems_status_code sc;
 
  sc = rtems_task_create (rtems_build_name('S','u','b',c),
    100,
    RTEMS_MINIMUM_STACK_SIZE * 4,
    RTEMS_PREEMPT|RTEMS_NO_TIMESLICE|RTEMS_NO_ASR|RTEMS_INTERRUPT_LEVEL(0),
    RTEMS_NO_FLOATING_POINT|RTEMS_LOCAL,
    tid);
  if (sc != RTEMS_SUCCESSFUL) {
    printf ("Can't create task (%d)\n", sc);
    rtems_task_suspend (RTEMS_SELF);
  }
}
 
static void
startTask (rtems_id tid, rtems_task_entry entry_point)
{
  rtems_status_code sc;
 
  sc = rtems_task_start (tid, entry_point, 0);
  if (sc != RTEMS_SUCCESSFUL) {
    printf ("Can't start task (%d)\n", sc);
    rtems_task_suspend (RTEMS_SELF);
  }
}
 
void
task1 (void)
{
  rtems_clock_get (RTEMS_CLOCK_GET_TICKS_PER_SECOND, &ticksPerSecond);
  createTask ('1', &taskId1);
  createTask ('2', &taskId2);
  startTask (taskId1, subTask1);
  startTask (taskId2, subTask2);
  rtems_task_suspend (RTEMS_SELF);
}

Line No.	Rev	Author	Line
1	30	unneback	`/*`
2			`* COPYRIGHT (c) 1989-1999.`
3			`* On-Line Applications Research Corporation (OAR).`
4			`*`
5			`* The license and distribution terms for this file may be`
6			`* found in the file LICENSE in this distribution or at`
7			`* http://www.OARcorp.com/rtems/license.html.`
8			`*`
9			`* $Id: task1.c,v 1.2 2001-09-27 12:02:36 chris Exp $`
10			`*/`
11
12			`#include <stdio.h>`
13			`#include <rtems.h>`
14			`#include <rtems/error.h>`
15
16			`static rtems_id taskId1;`
17			`static rtems_id taskId2;`
18			`rtems_interval ticksPerSecond;`
19
20			`static int`
21			`isSuspended (rtems_id tid)`
22			`{`
23			`rtems_status_code sc;`
24
25			`sc = rtems_task_is_suspended (tid);`
26			`if (sc == RTEMS_ALREADY_SUSPENDED)`
27			`return 1;`
28			`if (sc != RTEMS_SUCCESSFUL)`
29			`printf ("rtems_task_is_suspended: %s\n", rtems_status_text (sc));`
30			`return 0;`
31			`}`
32
33			`static void`
34			`subTask1 (rtems_task_argument arg)`
35			`{`
36			`rtems_status_code sc;`
37
38			`rtems_task_wake_after (ticksPerSecond * 3);`
39			`sc = rtems_event_send (taskId2, 1);`
40			`if (sc != RTEMS_SUCCESSFUL) {`
41			`printf ("subTask1 - Can't send event (%d)\n", sc);`
42			`rtems_task_suspend (RTEMS_SELF);`
43			`}`
44			`rtems_task_wake_after (ticksPerSecond * 3);`
45			`printf ("subTask1 - Event sent\n");`
46			`rtems_task_suspend (RTEMS_SELF);`
47			`printf ("subTask1 - Back to task 1\n");`
48			`rtems_task_wake_after (ticksPerSecond * 3);`
49			`rtems_task_suspend (RTEMS_SELF);`
50			`}`
51
52			`static void`
53			`subTask2 (rtems_task_argument arg)`
54			`{`
55			`rtems_status_code sc;`
56			`rtems_event_set ev;`
57
58			`rtems_task_wake_after (ticksPerSecond * 1);`
59			`sc = rtems_event_receive (1, RTEMS_WAIT\|RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &ev);`
60			`if (sc != RTEMS_SUCCESSFUL) {`
61			`printf ("subTask2 - Can't receive event (%d)\n", sc);`
62			`rtems_task_suspend (RTEMS_SELF);`
63			`}`
64			`printf ("subTask2 - Task 1 suspended? - should be 0: %d\n",`
65			`isSuspended (taskId1));`
66			`rtems_task_wake_after (ticksPerSecond * 4);`
67			`printf ("subTask2 - Task 1 suspended? - should be 1: %d\n",`
68			`isSuspended (taskId1));`
69			`rtems_task_resume (taskId1);`
70			`printf ("subTask2 - Task 1 suspended? - should be 0: %d\n",`
71			`isSuspended (taskId1));`
72			`rtems_task_wake_after (ticksPerSecond * 4);`
73			`printf ("subTask2 - Task 1 suspended? - should be 1: %d\n",`
74			`isSuspended (taskId1));`
75
76			`puts( "* END OF TEST 26 *" );`
77			`exit( 0 );`
78			`}`
79
80			`static void`
81			`createTask (char c, rtems_id *tid)`
82			`{`
83			`rtems_status_code sc;`
84
85			`sc = rtems_task_create (rtems_build_name('S','u','b',c),`
86			`100,`
87			`RTEMS_MINIMUM_STACK_SIZE * 4,`
88			`RTEMS_PREEMPT\|RTEMS_NO_TIMESLICE\|RTEMS_NO_ASR\|RTEMS_INTERRUPT_LEVEL(0),`
89			`RTEMS_NO_FLOATING_POINT\|RTEMS_LOCAL,`
90			`tid);`
91			`if (sc != RTEMS_SUCCESSFUL) {`
92			`printf ("Can't create task (%d)\n", sc);`
93			`rtems_task_suspend (RTEMS_SELF);`
94			`}`
95			`}`
96
97			`static void`
98			`startTask (rtems_id tid, rtems_task_entry entry_point)`
99			`{`
100			`rtems_status_code sc;`
101
102			`sc = rtems_task_start (tid, entry_point, 0);`
103			`if (sc != RTEMS_SUCCESSFUL) {`
104			`printf ("Can't start task (%d)\n", sc);`
105			`rtems_task_suspend (RTEMS_SELF);`
106			`}`
107			`}`
108
109			`void`
110			`task1 (void)`
111			`{`
112			`rtems_clock_get (RTEMS_CLOCK_GET_TICKS_PER_SECOND, &ticksPerSecond);`
113			`createTask ('1', &taskId1);`
114			`createTask ('2', &taskId2);`
115			`startTask (taskId1, subTask1);`
116			`startTask (taskId2, subTask2);`
117			`rtems_task_suspend (RTEMS_SELF);`
118			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [sptests/] [sp26/] [task1.c] - Blame information for rev 721