Re: I/O - exception handling

[Preben Randhol <randhol+abuse@pvv.org>]

Sergey Koshcheyev wrote:
>>       Safe_Close (File);
> 
> I'd change the line above to just "Close (File);", to have the opportunity
> to handle any error raised by Close.

Sure, I thought you didn't want though.

>> Now you can use the Safe_Close in any function you like.
> 
> I thought of this solution, but here the problem is code duplication. In
> this case it doesn't matter, but what if there were several files? You'd
> have a procedure Close_All and a procedure Safe_Close_All, which would both
> contain similar code.

Please explain, I don't follow you.

> But I guess the perfect general solution doesn't exist in Ada. By the way,
> it seems to exist in C++, which is sort of strange, shouldn't it be the
> other way around? ;-) Your solution seems close enough to perfect, however,
> so that's probably what I'd use.

Well why don't you use Finalize ?

-- 
Preben Randhol                    http://www.pvv.org/~randhol/