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.4 required=5.0 tests=BAYES_50,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,cb42c112b28d82e2
X-Google-Attributes: gid103376,public
From: "Matthew Heaney" <matthew_heaney@acm.org>
Subject: Re: Ada pointers to functions
Date: 1999/11/23
Message-ID: <383ab221_1@news1.prserv.net>#1/1
X-Deja-AN: 552086334
Content-transfer-encoding: 7bit
References: <3839DC14.74BE166C@algopharm.com>
Content-Type: text/plain; charset="US-ASCII"
X-Complaints-To: abuse@prserv.net
X-Trace: 23 Nov 1999 15:26:25 GMT, 32.101.8.36
Organization: Global Network Services - Remote Access Mail & News Services
Mime-version: 1.0
Newsgroups: comp.lang.ada
Date: 1999-11-23T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <3839DC14.74BE166C@algopharm.com> , Eric poirier 
<computer@algopharm.com>  wrote:

> -->  type T_Ptr_Func is array (1..10) of Message_Procedure;   <--
>
> Is this legal ???

Yes.

> And how should I call one of these function-pointed in an array ???

declare
  Messages : T_Ptr_Func;
begin
  <populate Messages array>
  for I in Messages'Range loop
    Messages (I).all;
    Messages (I)("this is a message");
  end loop;
end;


--
The new standards [for science curricula in Kansas] do not forbid the
teaching of evolution, but the subject will no longer be included in
statewide tests for evaluating students--a virtual guarantee, given the
realities of education, that this central concept of biology will be
diluted or eliminated, thus reducing courses to something like chemistry
without the periodic table, or American history without Lincoln.

Stephen Jay Gould, Time, 23 Aug 1999