From: john schneider <j-schneider@ti.com>
Subject: Re: instantiation of a procedure
Date: 1997/03/07
Date: 1997-03-07T00:00:00+00:00 [thread overview]
Message-ID: <33207554.41C67EA6@ti.com> (raw)
In-Reply-To: 5fnavj$ocs@acmez.gatech.edu
Brian Franklin wrote:
>
> generic
> type stuff1;
> with function stuff2;
> package foo1 is
> .
> .
> generic
> with procedure stuff3;
> procedure prog1;
> .
> .
> end prog1;
> .
> .
> end package foo1;
>
> I know how to instantiate the package and the generics
> preceding the package statement. But how do I instantiate the
> procedure stuff3 inside the package?
with fool;
procedure use_fool is
type local_type is ....;
function local_func ....;
procedure local_proc;
package my_fool is new fool( stuff1 => local_type,
stuff2 => local_func );
procedure THATS_IT is new my_fool.prog1( stuff3 => local_proc );
begin
--
-- In here you can use local_func, local_proc, the package
-- 'my_fool', and the procedure 'THATS_IT'
--
null;
end use_fool;
John Schneider
j-schneider@ti.com
The opinions are mine, but you are welcome to borrow them.
prev parent reply other threads:[~1997-03-07 0:00 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-03-06 0:00 instantiation of a procedure "none"
1997-03-07 0:00 ` john schneider [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox