Re: Using 'Access in a limited type declaration as an initialization hook

[Egil Harald Hoevik <egil.harald.hoevik@kongsberg.com>]

"Michael P. Card" wrote:
> 
<snip>
> 



An even more interesting and useful issue, is the ability to hook a task
to an object in more or less the same way:

type Object;

task type thread( Self : access Object );

type Object is 
record
  t : thread( Object 'access );
  seconds : integer := 0;
end record;

...

task body thread is
begin
  loop
  Self.seconds := Self.seconds + 1;
  delay 1.0;
  end loop;
end thread;



That way, the task is hooked up to the object, and can access the
object's 
members.

~egilhh
-- 
"What I seek is to serve, with my feeble capacity, 
truth and justice at the risk of pleasing no-one."
Albert Einstein.