Re: ADA and return functions (Strings)

[<ProLogic@prologitech.ods.org>]

Thank you very much David...

----- Original Message -----
From: "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>
Newsgroups: comp.lang.ada
Sent: Sunday, May 19, 2002 8:38 PM
Subject: Re: ADA and return functions (Strings)


>
> ----- Original Message -----
> From: "ProLogic" <ProLogic@prologitech.ods.org>
> Newsgroups: comp.lang.ada
> To: <comp.lang.ada@ada.eu.org>
> Sent: May 19, 2002 2:20 AM
> Subject: ADA and return functions (Strings)
>
>
> > Why does ADA return extra spaces in for example the following
function...
> >
> >  function getVersion return String is
> >   begin
> >    return Version.Major'img & "." & Version.Minor'img;
> >   end;
> Well, ADA doesn't return anyting, but the Ada function you've supplied
> above will return a string with spaces because the Image attributes of
> non-negative numeric objects is defined with a leading space where the
> '-' would be if the object had a negative value.  This is true even for
> types that are declared not to have negative values.
>
> The best way to do this without spaces is something like this:
>
> return Ada.Strings.Fixed.Trim (Version.Major'img, Ada.Strings.Left) &
>  "." & Ada.Strings.Fixed.Trim (Version.Minor'img, Ada.Strings.Left);
>
>
>
>