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.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,88e7ef9008757431
X-Google-Attributes: gid103376,public
From: Marin David Condic <condicma@bogon.pwfl.com>
Subject: Re: Function Calls by Address
Date: 1999/08/30
Message-ID: <37CAEA5C.11A23940@pwfl.com>#1/1
X-Deja-AN: 519011673
Content-Transfer-Encoding: 7bit
Sender: condicma@bogon.pwfl.com
References: <37CADE68.6AF06F5D@escmail.orl.lmco.com>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
Organization: Pratt & Whitney
Mime-Version: 1.0
Reply-To: e108678@pwflcom
Newsgroups: comp.lang.ada
Date: 1999-08-30T00:00:00+00:00
List-Id: <comp.lang.ada>

Craig Jameson wrote:

> Does any one know how to make dynamic function calls in Ada83.
> I am writing an application using AIX Motif bindings and I
> need to create a dynamic list of functions to be called when
> a particular X event is dispatched.  Any ideas on how to
> create and use such a list?

If I understand what you are trying to do, I think you want to use
access-to-subprogram types.(See ARM 3.10) This would let you define a
type that lets you get a pointer to a function or procedure matching a
certain calling profile. From there, you'd create your table of
functions to call and fill it with the access values to the functions
you wanted & null otherwise.

Sounds like it could get messy, but I think the reason for allowing
access types to subprograms was specifically for interfacing to
subsystems that want to do callbacks. If that's what you're trying to do
then this is probably the place to start looking.

MDC
--
Marin David Condic
Real Time & Embedded Systems, Propulsion Systems Analysis
United Technologies, Pratt & Whitney, Large Military Engines
M/S 731-95, P.O.B. 109600, West Palm Beach, FL, 33410-9600
***To reply, remove "bogon" from the domain name.***

Visit my web page at: http://www.mcondic.com/