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=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,691bbbf0ab0cc67e
X-Google-Attributes: gid103376,public
From: "Joakim Olsson" <joakim.h.olsson@swipnet.se>
Subject: Re: [Q] Returning Strings From A Function
Date: 1997/04/04
Message-ID: <01bc4150$bd322320$8f91f482@default>#1/1
X-Deja-AN: 230775848
References: <33454165.1658515@news.demon.co.uk>
Organization: My Own Government
Newsgroups: comp.lang.ada
NNTP-Posting-User: s-252009
Date: 1997-04-04T00:00:00+00:00
List-Id: <comp.lang.ada>


John McCabe <john@assen.demon.co.uk> wrote in article
<33454165.1658515@news.demon.co.uk>...
> Hello all.
> 
> I hope someone can help me as how to do this has completely slipped my
> mind, and I'm having trouble finding what I'm looking for in the Ada
> LRM (83) and Barnes.
> 
> I have a function, let's call it Text_IO.Name which returns a string.
> If I have an object let's say File_Name, what would be the correct (or
> best) way to declare that object in order for the statement:
> 
> File_Name := Text_IO.Name (File);
> 
> (or something similar with slices?) to work without me getting a
> constraint error by trying to assign a string of n characters to an
> object /=n characters long.
> 
> Should I be using subtypes here or what.
> 
> I'm sure this will appear to be a really stupid question, but at the
> moment I'm being frustrated and I can't think straight!
> 
> Thanks in advance.
> 
> 
> Best Regards
> John McCabe <john@assen.demon.co.uk>


Hi John.

If you declare 'File_Name' as constant STRING it should work.
Using a constant declaration should work in Ada83 and Ada95,
but if I not remember things wrong, You don't have to have the
constant declaration in Ada95...


Example:

-- procedure or function
--
procedure Proc is
   File_Name : constant STRING := Text_IO.Name (File);
begin
.....
.....
end;

-- declarationblock inside a procedure or function
--
procedure Proc is
begin
   declare
      File_Name : constant STRING := Text_IO.Name (File);
   begin
      -- File_Name exists of course only in this block
      .....
      .....
   end;
.....
.....
end;

Se You, safe and sound hacking Ada...
/Jake