From: "Steve Doiel" <nospam_steved@pacifier.com>
Subject: Re: Subverting 'Access for Sub-programs
Date: 1999/08/03
Date: 1999-08-03T00:00:00+00:00 [thread overview]
Message-ID: <37a7990a.0@news.pacifier.com> (raw)
In-Reply-To: 37A71EF1.2201@dera.gov.uk
You already had a number of valid responses to your question, but none
seem to subvert the language. I'm not sure mine does, but here goes
anyway:
For your main procedure use (exactly as shown):
with Main_Package;
procedure EntryPoint is
begin
Main_Package.Main;
end EntryPoint;
For your program use a package spec and body:
package Main_Package is
procedure Main;
end Main_Package;
with Database;
with Ada.Text_Io;
package body Main_Package is
package Text_IO renames Ada.Text_IO;
procedure Print_If_Even( I : in Integer ) is
begin
if I rem 2 = 0 then
Text_IO.Put_Line( Integer'Image( I ) );
end if;
end Print_If_Even;
procedure Main is
begin
Database.Perform( Action => Print_If_Even'Access );
end Main;
end Main_Package;
In this code use Main_Package.Main as a substitute for your
main procedure. This allows you to define Print_If_Even at
the library level (outside of any other procedure).
FWIW
SteveD
next prev parent reply other threads:[~1999-08-03 0:00 UTC|newest]
Thread overview: 68+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-08-03 0:00 Subverting 'Access for Sub-programs Anton Gibbs
1999-08-03 0:00 ` tmoran
1999-08-03 0:00 ` Steve Doiel [this message]
1999-08-03 0:00 ` Ted Dennison
1999-08-03 0:00 ` David C. Hoos, Sr.
1999-08-05 0:00 ` Robert A Duff
1999-08-03 0:00 ` Brian Rogoff
1999-08-03 0:00 ` Michael F. Yoder
1999-08-04 0:00 ` Robert Dewar
1999-08-04 0:00 ` Robert A Duff
1999-08-04 0:00 ` Robert Dewar
1999-08-04 0:00 ` Anton Gibbs
1999-08-04 0:00 ` Jean-Pierre Rosen
1999-08-04 0:00 ` Brian Rogoff
1999-08-05 0:00 ` Jean-Pierre Rosen
1999-08-05 0:00 ` adam
1999-08-05 0:00 ` Robert Dewar
1999-08-05 0:00 ` What is a Display ? (was: Subverting 'Access for Sub-programs) Larry Kilgallen
1999-08-05 0:00 ` Hyman Rosen
1999-08-06 0:00 ` Robert Dewar
1999-08-06 0:00 ` Robert Dewar
1999-08-05 0:00 ` Subverting 'Access for Sub-programs adam
1999-08-06 0:00 ` Robert A Duff
1999-08-06 0:00 ` adam
1999-08-09 0:00 ` Mark Biggar
1999-08-09 0:00 ` Robert A Duff
1999-08-05 0:00 ` Robert A Duff
1999-08-05 0:00 ` Brian Rogoff
1999-08-06 0:00 ` Robert Dewar
1999-08-09 0:00 ` Tucker Taft
1999-08-10 0:00 ` Robert Dewar
1999-08-11 0:00 ` Dmitry A. Kazakov
1999-08-11 0:00 ` Robert Dewar
1999-08-12 0:00 ` Dmitry A. Kazakov
1999-08-14 0:00 ` Robert Dewar
1999-08-16 0:00 ` Dmitry A. Kazakov
1999-08-11 0:00 ` Richard D Riehle
1999-08-11 0:00 ` Robert A Duff
1999-08-11 0:00 ` Robert Dewar
1999-08-11 0:00 ` Tucker Taft
1999-08-13 0:00 ` Robert Dewar
1999-08-13 0:00 ` Brian Rogoff
1999-08-13 0:00 ` Robert Dewar
1999-08-05 0:00 ` tmoran
1999-08-06 0:00 ` Robert A Duff
1999-08-05 0:00 ` Robert Dewar
1999-08-06 0:00 ` Brian Rogoff
1999-08-07 0:00 ` Gautier
1999-08-05 0:00 ` Robert A Duff
1999-08-05 0:00 ` Robert Dewar
1999-08-05 0:00 ` Brian Rogoff
1999-08-04 0:00 ` Robert A Duff
1999-08-04 0:00 ` Brian Rogoff
1999-08-05 0:00 ` tmoran
1999-08-05 0:00 ` Robert Dewar
1999-08-05 0:00 ` Ray Blaak
1999-08-06 0:00 ` Robert Dewar
1999-08-06 0:00 ` Robert A Duff
1999-08-08 0:00 ` Brian Rogoff
1999-08-09 0:00 ` Robert A Duff
1999-08-10 0:00 ` Brian Rogoff
1999-08-09 0:00 ` Tucker Taft
1999-08-06 0:00 ` Jean-Pierre Rosen
1999-08-06 0:00 ` Hyman Rosen
1999-08-07 0:00 ` Florian Weimer
1999-08-05 0:00 ` Aidan Skinner
1999-08-05 0:00 ` Anton Gibbs
1999-08-05 0:00 ` Steve Quinlan
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox