Yurttas/PL/IL/Ada-95/F/06/tasks/task 04.adb
Jump to navigation
Jump to search
1--
2-- Copyright(C) 1998
3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
4--
5-- Permission to use, copy, modify, and distribute this
6-- software and its documentation for EDUCATIONAL purposes
7-- and without fee is hereby granted provided that this
8-- copyright notice appears in all copies.
9--
10
11-- date : January 1, 1998.
12-- author : Salih Yurttas.
13
14-- task_04.adb
15
16
17procedure Task_04 is
18
19 task First is
20 entry Service;
21 end First;
22
23 task Second is
24 entry Service;
25 end Second;
26
27 task body First is
28 begin
29 select
30 accept Service;
31 or terminate;
32 end select;
33 Second.Service;
34 end First;
35
36 task body Second is
37 begin
38 select
39 accept Service;
40 or terminate;
41 end select;
42 First.Service;
43 end Second;
44
45begin
46
47 null;
48
49end Task_04;