aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Program-termination/Ada/program-termination-1.ada
View file

@ -1,10 +0,0 @@
with Ada.Task_Identification; use Ada.Task_Identification;
procedure Main is
-- Create as many task objects as your program needs
begin
-- whatever logic is required in your Main procedure
if some_condition then
Abort_Task (Current_Task);
end if;
end Main;

11
Task/Program-termination/Ada/program-termination-2.ada
View file

@ -1,11 +0,0 @@
procedure Main is
-- Create as many task objects as your program needs
begin
-- whatever logic is required in your Main procedure
if some_condition then
-- for each task created by the Main procedure
The_task.Stop;
-- end the Main procedure
return; -- actually, this is not needed
end if;
end Main;

14
Task/Program-termination/Ada/program-termination-3.ada
View file

@ -1,14 +0,0 @@
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;

10
Task/Program-termination/Ada/program-termination-4.ada
View file

@ -1,10 +0,0 @@
task body Some_Task is
begin
loop
select
-- Some alternatives
...
or terminate; -- We are through
end select
end loop;
end Some_Task;