Re: Question on array of strings

[Robert A Duff <bobduff@shell01.TheWorld.com>]

In addition to the good answers in this thread, another thing that might
work for the OP is:

    Events_Type'Image(Event)

although it annoyingly uses ALL_CAPS, and doesn't work if
the event names contain blanks and whatnot.

"Hibou57 (Yannick Duch�ne)" <yannick_duchene@yahoo.fr> writes:

> Next now : you have an array of constant, which will be initialized
> each times you enter the function. There are no kind of � static � in
> Ada like there are in C. To achieve static global allocation, you have
> to declare your array outside of the function, at the package level.

This part is not necessarily true.  The compiler is free to do static
global allocation here.

> So now, try to change
>
>    function Event_To_String(Event : in Events_Type) return String is
>       Ev1_Name : aliased constant String :="ev3434";
>       Ev2_Name : aliased constant String :="evEnd";

The above strings are certainly statically allocated in GNAT.

>       eventStrings : constant array (Events_Type) of access constant
> String :=
>         (Ev1_Name'Access,
>          Ev2_Name'Access);

I think the above array is, too, but I'm not sure.
You'd have to experiment to find out.

>       begin
>          return EventStrings(Event).all;
>       end Event_To_String;begin

In other words, a good compiler will do the following tranformation for
you.  The advantage is to avoid polluting the global namespace.

> into
>
>    Ev1_Name : aliased constant String :="ev3434";
>    Ev2_Name : aliased constant String :="evEnd";
>
>    eventStrings : constant array (Events_Type) of access constant
> String :=
>      (Ev1_Name'Access,
>       Ev2_Name'Access);
>
>    function Event_To_String(Event : in Events_Type) return String is
>       begin
>          return EventStrings(Event).all;
>       end Event_To_String;begin

- Bob