Re: Get (integer) help

[Stephen Leake <Stephen.Leake@gsfc.nasa.gov>]

sbredemeyer@westpac.com.au wrote:
> 
> I am relatively new to Ada 95 and am having trouble with a GetInt library unit that I have created. It is a simple procedure with in parms of Min_Allow, Max_Allow and Prompt_Text that out's The_Integer.
> I have created user defined exceptions handlers for integer values
> outside the range of Min_Allow .. Max_Allow (The_Integer is
> unconstrained, no subtype declaration), and used Data_Error and
> Constraint_Error as well. The problem I am having is that my exception handler handles inputs such as Strings, Integer'Last and integers out of range Min_Allow .. Max_Allow but spits the dummy if I input a real.
> I know what is happening (i.e. given 1.234, GetInt gets 1 as valid
> integer input with the marker pointing to "." which is then read in with the next execution of the procedure) but not how to
> get around it. I have been trying to find documentation on look_ahead
> which I think might solve my problem, but with no success.
> Can anybody help?

I'm not clear what behavior you want. If your program calls GetInt, and
the user types "1.234", do you want GetInt to say "1.234 is not an
integer" ? If so, you need to read a whole line, using Get_Line, and not
just an integer, using Text_IO.Integer_IO.Get.

I wrote a similar package (in Ada 83). You can download it from my web
page:

http://www710.gsfc.nasa.gov/~sal714/homepage.html

follow the link to "Ada packages for Friendly Text_Io and Robot_Math",
and download text_io.tar.gz
> 
> Please let me know if I have submitted this to an
> inappropriate
> NewsGroup. This is my first visit to DejaNews.

You've come to the right place!
> 
> Thankyou
> 
> -------------------==== Posted via Deja News ====-----------------------
>       http://www.dejanews.com/     Search, Read, Post to Usenet

-- 
- Stephe