Re: Strange problem in GNAT 3.04 Win 95

[labtek@cs.yale.edu (Tom Griest)]

smoore@chowgar.demon.co.uk (Simon Moore) writes:

>If anybody has got the time could they please take a look at the
>listing below. The code seems syntactically and semantically correct
>but doesn't perform as it should.

You are missing statement to flush the rest of the input line
when you do a get on the integer.  You need a Skip_Line; after
the Get(Choice);

[snip]


>		PUT_LINE("1 - Get a natural");
>		PUT_LINE("2 - Get a character");
>		PUT_LINE("3 - Nothing");
>		PUT_LINE("4 - Nothing");
>		NEW_LINE;
>		PUT_LINE("0 - Exit");
>  
>		GET(choice);
>
>		-- ** GET(c);	-- THIS IS THE IMPORTANT LINE
>

Get(C) will not work in the general case, and specifically if the
user enters additional (possibly space) characters after the number.
BTW, it is good practice to use bullet-proof input routines for
this sort of thing, since a user making a typo could easily get
an unhandled exception in your example.

The reason why case 1 works, but not case two is that the get on
integer is defined to scan over non-numeric characters, whereas
get on a character simply returns the next input character.

-Tom