Re: array of strings in a function

[Jeffrey Carter <spam@spam.com>]

Antonio Martï¿œnez wrote:

> I'm trying to pass to a function an argument. The argument is an
> array range <> of Strings (unbounded array).
> 
> For example:
> 
> my_fun("Hello", ", I'm", " the function");

This looks like a procedure, not a function.

> number of string literals is unknown by the function. And the
> length of every string is unknown as well.
> 
> It works if I choose a fixed length of the string, and every string
> is exactly the length I have forced.
> 
> So, if I fixed 4, it works for me:
>   my_fun("only", "four", "lette", "rs  ", "are ", "allo", "ed  ");

You can't have a subprogram with an unknown number of parameters, which 
is what you've been trying to write.

> How do I work with unbound strings?
> 
> I want something like this:
> 
>   type Miarray is array (Positive range <>) of string;
> 
> but it doen't compile !!!

Of course not. String is an indefinite type, and the components of an 
array type must be definite. You say you want unbounded strings, so use 
unbounded strings:

use Ada.Strings.Unbounded;

type Mine is array (Positive range <>) of Unbounded_String;

Then you can write

procedure Proc (Arg : in Mine);

and call it

Proc (Arg => (To_Unbounded_String ("Hello") ,
               To_Unbounded_String (", I am"),
               To_Unbounded_String (" Ada!") );

-- 
Jeff Carter
"Death awaits you all, with nasty, big, pointy teeth!"
Monty Python & the Holy Grail
20