Re: I/O - exception handling

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

Preben Randhol wrote:
> Sergey Koshcheyev wrote:
>>> In stead of when others => why don't you check which exception
>>> occurred?
>>>
>>> You have Name_Error, Use_Error, Device_Error, End_Error etc...
>> 
>> For simplicity - currently it's enough for me just to know that something
>> failed. And besides, I don't think it would solve the problem, even if I
>> checked for specific exceptions.
> 
> Well I don't know what you are doing, but I would have checked so I
> could give some feedback as to what the problem is.
> 
> 
> I do this check in my application so the user can get propper feedback:
> 
> 
>       exception
>          when Name_Error =>
>             Dialogs.Warning
>                (Title   => -"Could not find file",
>                 Message => -"The file you requested :" & ASCII.LF &
>                              ASCII.LF & filename & ASCII.LF & ASCII.LF &
>                            (-"Could not be found. Please check that "&
>                              "you spelt the filename correctly."),
>                 Has_Main => True);
> 
>          when Use_Error =>
>             Dialogs.Warning
>                (Title   => -"Could not open file",
>                 Message => -"The file you requested :" & ASCII.LF &
>                              ASCII.LF & filename & ASCII.LF & ASCII.LF &
>                            (-"Could not be opened. Please check that "&
>                              "you have permission to read this file."),
>                 Has_Main => True);
> 
>          when Device_Error | End_Error =>
>             Dialogs.Warning
>                (Title   => -"Could not open file",
>                 Message => -"The file you requested :" & ASCII.LF &
>                              ASCII.LF & filename & ASCII.LF & ASCII.LF &
>                            (-"Could not be opened. Please check that "&
>                              "it is a valid file."),
>                 Has_Main => True);
>          when E : others =>
>             Dialogs.Error_Report
>                (Error =>
>                   (-"An unexpected error occurred while trying to open ") &
>                   ASCII.LF & ASCII.LF & filename &
>                   ASCII.LF & ASCII.LF & "Please Report this!" &
>                   ASCII.LF & ASCII.LF & Exception_Information (E));
>       end;


Actually this is some old code as I rewrote it to use enumerations
later.

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