Re: enumeration_io: get error

["R. Tim Coslet" <R_Tim_Coslet@pacbell.net>]

You are getting Storage_Error, because your exception handler (which is
handling the Data_Error exception raised by the get when something outside
the type is entered) is recursively calling tests. When you have done this
enough the stack overflows...

One way to handle this would be to use the "goto" in the handler, so that
the program iterates rather than recurses. However many people consider
"goto" as bad style. A "loop" can also be used, but I'll leave it up to you
to figure it out.

-- 
        R. Tim Coslet
        r_tim_coslet@pacbell.net

Technology, n. Domesticated natural phenomena.


> From: "Gino POLIDO" <gino.polido@wanadoo.fr>
> Organization: Wanadoo, l'internet avec France Telecom
> Newsgroups: comp.lang.ada
> Date: Sat, 15 Jun 2002 23:06:16 +0200
> Subject: enumeration_io: get error
> 
> Look at this. If you get "*" or another no alpha numeric character, there is
> a loop and it raises a storagr_error.
> How to do?
> 
> Thks
> 
> ---------------------------------
> package Mytype is
> 
> type Tmytype is (a,b,c);
> 
> end Mytype;
> 
> with Mytype;
> with ada.text_io;
> 
> package Enumeration_Tmytype is new
> ada.text_io.enumeration_io(Mytype.Tmytype);
> 
> with Mytype;
> with Enumeration_Tmytype;
> with ada.text_io;
> 
> procedure tests is
> input:Mytype.Tmytype;
> begin
> for i in 1..4 loop
> ada.text_io.put("Choose(a,b, or c):");
> enumeration_Tmytype.get(input);
> end loop;
> 
> exception
> when others =>
> tests;
> end tests;
> 
> 
>