From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,9fa5063fbdc75ae4
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-10-15 05:29:46 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!uio.no!ntnu.no!not-for-mail
From: Preben Randhol <randhol+valid_for_reply_from_news@pvv.org>
Newsgroups: comp.lang.ada
Subject: Re: array of strings in a function
Date: Wed, 15 Oct 2003 12:29:46 +0000 (UTC)
Organization: PVV
Message-ID: 
 <slrnboqfdq.n6.randhol+valid_for_reply_from_news@kiuk0152.chembio.ntnu.no>
References: <pan.2003.10.14.20.54.54.17088@atc.ugr.es>
 <bmjc7h$per$1@mercurio.cica.es>
Reply-To: randhol+valid_for_reply_from_news@pvv.org
NNTP-Posting-Host: kiuk0152.chembio.ntnu.no
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: tyfon.itea.ntnu.no 1066220986 13028 129.241.83.78 (15 Oct 2003
 12:29:46 GMT)
X-Complaints-To: usenet@itea.ntnu.no
NNTP-Posting-Date: Wed, 15 Oct 2003 12:29:46 +0000 (UTC)
User-Agent: slrn/0.9.8.0 (Linux)
Xref: archiver1.google.com comp.lang.ada:889
Date: 2003-10-15T12:29:46+00:00
List-Id: <comp.lang.ada>

On 2003-10-15, Antonio Mart�nez �lvarez <amartinez@atc.ugr.es> wrote:
> Hello again. I'm the original poster.
>
> What I want to do is a procedure (sorry, not a function) to do something 
> like this:
>
> my_AND("Entrada_1", "P2", "Output");
>
> and with this argument, this function have to write this:
>
> entity my_AND is port(
>    Entrada_1 	: in std_logic;
>    P2		: in std_logic;
>    Output	: out std:logic;
> );
>
> In general, I don't know the number of string arguments. An these
> strings can be any length. I have tried to do this with unbounded...

So what you are saying is that it could also be:

my_AND("Entrada_1", "P2", "P3", "Output");

which should give:

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

or am I misundstanding you?

> but without any nice results ...  Maybe I must use access variables,
> like in C. I know how to do this in C, but I'm really interested in do
> this job into Ada95. 

You shouldn't need to use access variables, but I really don't
understand what you are trying to do.


> I'm writting a generator of VHDL (parsing, etc ...).

I don't know, but is this of interest:

   http://www.telepath.com/~dennison/Ted/OpenToken/OpenToken.html

Preben