Re: How to Emulate C++ Macro with Static Local Variable?

[Jeffrey Carter <spam@spam.com>]

Gautier Write-only wrote:

> package BARs is
> 
>   type S is array(0..7) of Integer;
> 
>   generic
>     foo: Integer;
>   package P is
>     procedure BAR;
>   end;
>   
> end;
> 
> with Ada.Text_IO, Ada.Integer_Text_IO; use Ada.Text_IO, Ada.Integer_Text_IO;
> 
> package body BARs is
> 
>   package body P is
>     initialized: Boolean:= False;
>     cache: S;
>     procedure BAR is
>     begin
>       if not initialized then
>         cache:= (others=> foo);
>         New_Line;
>         Put_Line("[Filling cache for instance]" & Integer'image(foo));
>         initialized:= True;
>       end if;
>       Put(cache(cache'last));
>     end;
>   end;
> 
> end BARs;

There seems to be no need for type S. Why not have

generic
    Foo : Integer;
package BARs is
    procedure BAR;
end BARs;

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
package body BARs is
    Cache : Integer := Foo;

    procedure BAR is
    begin
        Put (Cache);
    end BAR;
end BARs;

-- 
Jeff Carter
"Oh Lord, bless this thy hand grenade, that with it thou
mayst blow thine enemies to tiny bits, in thy mercy."
Monty Python and the Holy Grail
24