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=0.1 required=5.0 tests=BAYES_05,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,2308afbbe4ecec0b
X-Google-Attributes: gid103376,public
From: Anton Gibbs <agibbs@dera.gov.uk>
Subject: Re: Subverting 'Access for Sub-programs
Date: 1999/08/05
Message-ID: <37A94525.263F@dera.gov.uk>#1/1
X-Deja-AN: 509098903
Content-Transfer-Encoding: 7bit
References: <37A71EF1.2201@dera.gov.uk> <37A7FDE8.4F5@dera.gov.uk>
 <wccbtcnfzr3.fsf@world.std.com>
Organization: Eurocontrol Integration Team
Content-Type: text/plain; charset=us-ascii
Mime-Version: 1.0
Newsgroups: comp.lang.ada
Date: 1999-08-05T00:00:00+00:00
List-Id: <comp.lang.ada>

Robert A Duff wrote:

> There is no good solution to this problem: no solution that is portable,
> concise, reentrant, &c.
> 
> One thing you can do is declare a tagged type, and use an extension as
> the environment of the procedure you want to pass -- then instead of
> passing a procedure as a parameter, pass an object of the class-wide
> type.

Er, thanks Bob. Maybe I will just revert to good old generics a la
Ada83.

Thanks for your help.

Best -- Anton.

-- 
Civil Air Traffic Management Group
Defence Evaluation and Research Agency
Bedford, UK

"The Information contained in this E-Mail and any 
subsequent correspondence is private and is intended
solely for the intended recipient(s).  For those
other than the intended recipient any disclosure,
copying, distribution, or any action taken or 
omitted to be taken in reliance on such information
is prohibited and may be unlawful."