instantiation of a procedure

instantiation of a procedure

["none"]

I'm using GNAT307  (DOS)

I'm trying to interface my client program with a package. The package's 
general structure is 


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? Note that it is a procedure with a generic within in a 
package and not a package within a package (I think I know that case).  
Also is procedure prog1 referenced any differently than if it were just 
a procedure inside the package with no generic declaration?



-- 
Brian Franklin
Georgia Institute of Technology, Atlanta Georgia, 30332
uucp:	  ...!{decvax,hplabs,ncar,purdue,rutgers}!gatech!prism!bf14
Internet: bf14@prism.gatech.edu

Re: instantiation of a procedure

[john schneider]

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.