Re: array of strings in a function

[Ole-Hjalmar Kristensen <ole-hjalmar.kristensen@substitute_employer_here.com>]

You could have an unconstrained array of Unbounded_String as the
parameter to your procedure, like this:

with Ada.Text_Io; use Ada.Text_Io;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

procedure U is
   type U_S_A is array(Integer range <>) of Unbounded_String;

   procedure Print(S : U_S_A) is
   begin
      for I in S'Range loop
         Put_Line(To_String(S(I)));
      end loop;
   end Print;

   X : U_S_A := (To_Unbounded_String("foo"), 
                 To_Unbounded_String("bar"));

begin
   Print(X);
end U;


>>>>> "AM�" == Antonio Mart�nez �lvarez <amartinez@atc.ugr.es> writes:

    AM�> Hello again. I'm the original poster.
    AM�> What  I want  to  do is  a procedure  (sorry,  not a  function) to  do
    AM�> something like this:


    AM�> my_AND("Entrada_1", "P2", "Output");

    AM�> and with this argument, this function have to write this:

    AM�> entity my_AND is port(
    AM�>    Entrada_1 	: in std_logic;
    AM�>    P2		: in std_logic;
    AM�>    Output	: out std:logic;
    AM�> );

    AM�> (This is VHDL code, very similar to Ada95).

    AM�> In  general, I don't  know the  number of  string arguments.  An these
    AM�> strings  can   be  any   length.  I  have   tried  to  do   this  with
    AM�> unbounded... but without any nice results ...

    AM�> Maybe I must use access variables, like in C. I know how to do this in
    AM�> C, but I'm really interested in do this job into Ada95. I'm writting a
    AM�> generator of VHDL (parsing, etc ...).


    AM�> I'll send  the answer when it  works. But till this  moment, and havig
    AM�> read your posts I haven't found the answer.


    AM�> Thank you so much.

    AM�> --
    AM�> Antonio Mart�nez


-- 
This page intentionally left blank