Re: error recovery

[f97stdi@dd.chalmers.se (Staffan Dittmer)]

In article <3afbe7e2.191078067@news.nl.uu.net>,
	serious@clerk.com (Noam Kloos) writes:

> But after exception has been raised the program ends.
> So my way to do it was; when Name_Error; Create File, call the program
> itself.
> 
> Is there a better way to realise error recovery in Ada?
> Noam.
>
 
Guess you should check the ARM about the range(?) of exceptions.
The solution to your problem is adding a new block inside your main
program,  or a procedure,  that handles the exception locally without 
interrupting the rest of your program.

In your case a block solution would be

open_file_block:
 begin
    Open(File_Log,Append_File,Log_File_Name);
   exception
   when Name_Error => Create(File_Log,In_File,Log_File_Name);
end open_file_block;

then do all the putting things....

/ Staffan