ATC, an example please.
- From: "e.coli" <maurizio.ferracini@xxxxxxxxx>
- Date: 30 Jun 2005 01:44:52 -0700
how ATC work?
can you fix this example,please?
------------------------------------------------------------------
with Ada.Text_Io;
procedure Atc_Test is
task A_Task is
entry Foo;
end A_Task;
task body A_Task is
begin
loop
accept Foo;
Ada.Text_Io.Put_Line("one.start");
for Iteration in 1..100000 loop
Ada.Text_Io.Put(".");
end loop;
Ada.Text_Io.Put_Line("one.end");
end loop;
end A_Task;
begin
select
delay 2.0;
Ada.Text_Io.Put_Line ("Long calculation abandoned");
then
abort
A_Task.Foo;
end select;
Ada.Text_Io.Put_Line ("end main");
end Atc_Test;
-----------------------------------------------------------------
best regards
Maurizio
.
- Follow-Ups:
- Re: ATC, an example please.
- From: e.coli
- Re: ATC, an example please.
- From: Dmitry A. Kazakov
- Re: ATC, an example please.
- Prev by Date: Re: Division by zero
- Next by Date: Re: ATC, an example please.
- Previous by thread: How difficult is ada to learn?
- Next by thread: Re: ATC, an example please.
- Index(es):
Relevant Pages
|
