Re: Float to String

From: "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>
To: "Jeffrey Carter" <spam@spam.com>
Cc: comp.lang.ada@ada-france.org
Subject: Re: Float to String
Date: Thu, 11 Nov 2004 18:01:11 -0600
Date: 2004-11-11T18:01:11-06:00	[thread overview]
Message-ID: <mailman.97.1100217722.10401.comp.lang.ada@ada-france.org> (raw)
In-Reply-To: 9qNkd.24057$KJ6.14615@newsread1.news.pas.earthlink.net

No, it is not an error.  Note that the Separators
string contains three characters, blank, plus, and minus.

So, To_Real wants one of those three characters to
separate the mantissa and the exponent.

----- Original Message ----- 
From: "Jeffrey Carter" <spam@spam.com>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada-france.org>
Sent: November 11, 2004 11:36 AM
Subject: Re: Float to String

> 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
> 
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada-france.org
> http://www.ada-france.org/mailman/listinfo/comp.lang.ada
> 
>