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: bobduff@world.std.com (Robert A Duff)
Subject: Re: Q. about Inheritance in Ada95
Date: 1996/07/02
Message-ID: <DtxuF5.BKp@world.std.com>#1/1
X-Deja-AN: 163372091
references: <4rc2q8$b84@portal.gmu.edu>
organization: The World Public Access UNIX, Brookline, MA
newsgroups: comp.lang.ada
Date: 1996-07-02T00:00:00+00:00
List-Id: <comp.lang.ada>


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);

- Bob