From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,ab090844d583ab0b
X-Google-Attributes: gid103376,public
From: mab@dst17.wdl.loral.com (Mark A Biggar)
Subject: Re: Q. about Inheritance in Ada95
Date: 1996/07/03
Message-ID: <4re31p$19@wdl1.wdl.loral.com>#1/1
X-Deja-AN: 163493680
references: <4rc2q8$b84@portal.gmu.edu> <DtxuF5.BKp@world.std.com>
organization: Loral Western Development Labs
newsgroups: comp.lang.ada
Date: 1996-07-03T00:00:00+00:00
List-Id: <comp.lang.ada>


In article <DtxuF5.BKp@world.std.com> bobduff@world.std.com (Robert A Duff) writes:
>In article <4rc2q8$b84@portal.gmu.edu>,
>Wajdi H Al-Jedaibi (INFT) <waljedai@site.gmu.edu> wrote:
>>	Does Ada 95 allows for task to be extended.
>Not directly.  However, you can do things like this:
>    type Action is access procedure;
>    task type Do_Anything(To_Do: Action);
>    task body Do_Anything is
>    begin
>        To_Do.all;
>    end Do_Anything;
>Now you can create tasks to do whatever you like:
>    procedure My_Action is ...
>    Task_Obj: Do_Anything(To_Do => My_Action'Access);

Well anything except talk to other such tasks, such a task can't accept any
entry calls as it can't legaly contain any accept statements.

--
Mark Biggar
mab@wdl.lmco.com