Re: Array Of Constant Strings?

[Dale Stanbrough <dstanbro@bigpond.net.au>]

In article <RXY2a.4080$io.157916@iad-read.news.verio.net>,
 Dr Nancy's Sweetie <kilroy@elvis.rowan.edu> wrote:

> Maybe I'm just doing this wrong, but the only solution I can see
> looks unreasaonbly verbose.
> 
> What I want is to set up an array of constant strings, all the same
> length.  I tried using Ada.Strings.Bounded, with something like
> this:
> 
>    package Name_Package is new Generic_Bounded_Length(7);
> 
>    type Name_String is new Digit_Package.Bounded_String;
> 
>    Name_List : constant array(1..26) of Name_String :=
>        ("Anthony", "Barbara", "Claudia", "Deborah" "Elliott",
>          .... and so on.
> 


a more versatile solution would be to use aliased strings, and string 
pointers.

   type String_Ptr is access all String;
   -- defined in the Ada hierachy somewhere...

   type Strings is array (Positive range <>) of String_Ptr;

   a : aliased String := "Anthony";
   b : aliased String := "Bert";
   c : aliased String := "Carla";

   List : Strings := (a'Access, b'access, c'access);

(or should that be 'Unrestricted_Access?)

not as compact as C, but you end up with the same effect.


Dale