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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,91965a012526b259
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!news.maxwell.syr.edu!elnk-pas-nf1!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread1.news.pas.earthlink.net.POSTED!a6202946!not-for-mail
From: Jeffrey Carter <spam@spam.com>
Organization: jrcarter commercial-at acm [period | full stop] org
User-Agent: Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.4) Gecko/20030624
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Float to String
References: <24Bkd.74362$HA.12207@attbi_s01>
 <oSEkd.84394$R05.14873@attbi_s53>	<u3bzga7n3.fsf@obry.org>
 <mailman.94.1100188500.10401.comp.lang.ada@ada-france.org>
In-Reply-To: <mailman.94.1100188500.10401.comp.lang.ada@ada-france.org>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <9qNkd.24057$KJ6.14615@newsread1.news.pas.earthlink.net>
Date: Thu, 11 Nov 2004 17:36:05 GMT
NNTP-Posting-Host: 63.184.105.183
X-Complaints-To: abuse@earthlink.net
X-Trace: newsread1.news.pas.earthlink.net 1100194565 63.184.105.183 (Thu,
 11 Nov 2004 09:36:05 PST)
NNTP-Posting-Date: Thu, 11 Nov 2004 09:36:05 PST
Xref: g2news1.google.com comp.lang.ada:6151
Date: 2004-11-11T17:36:05+00:00
List-Id: <comp.lang.ada>

David C. Hoos, Sr. wrote:

>   function To_Real
>     (Representation : String)
>      return Real
>   is
>      Separator   : Natural;
>      Separators  : constant String := " +-";

...

>      Separator := Ada.Strings.Fixed.Index
>        (Representation (Representation'First + 1 .. Representation'Last),
>         Ada.Strings.Maps.To_Set (separators));
>      if Separator = 0 then
>         Raise_With_Message;
>      end if;

...

>   function To_String (Value : Real) return String

...

>         return Mantissa_String & Integer'Image (Exponent);

Is this an error? To_Real wants a sign on the exponent ('+' or '-') but 
Integer'Image does not add '+' to non-negative values.

-- 
Jeff Carter
"If a sperm is wasted, God gets quite irate."
Monty Python's the Meaning of Life
56