14 lines
335 B
Ada
14 lines
335 B
Ada
task body Some_Task is
|
|
begin
|
|
loop
|
|
select
|
|
-- Some alternatives
|
|
...
|
|
or accept Stop do
|
|
-- Some cleanup while holding the caller is here
|
|
end Stop;
|
|
-- A cleanup asynchronous to the caller is here
|
|
exit; -- We are through
|
|
end select
|
|
end loop;
|
|
end Some_Task;
|