Re: I/O - exception handling

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

Sergey Koshcheyev wrote:
> 
>>  begin
>>     Open (File, Name => "test.txt", Mode => In_File);
>>     Get_Line (File, S1);
>>     Get_Line (File, S2);
>>     Close_File;
>> 
>>  exception
>>     when others =>
>>          Close_File;
>> end Read_Something;
> 
> This closes the file twice, as does the example below - something I 
> don't like.

No it doesn't. Well that is since you do the when others => and if you
get an error in Close_File (why doesn't it take arguments btw?) then it
will call Close_File again. But if you get an exception in Open the
program will jump to the exception bit and not go through the other
steps.


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