История изменений
Исправление
MOPKOBKA,
(текущая версия)
:
обработка ошибок топовая
Если я правильно понял, то она либо копирует, либо переизобретает ту систему что есть в Ada, но в Ada я бы сказал более красиво использовали begin end, добавив возможность вставить в середину еще и exception, который тоже самое что и catch в С подобных языках.
procedure Open_File is
File : File_Type;
begin
begin
Open (File, In_File, "input.txt");
exception
when E : Name_Error =>
Put ("Cannot open input file : ");
Put_Line (Exception_Message (E));
raise;
end;
end Open_File;
Сами ошибки надо описывать, но в одну строку
Error1: exception;
Error2: exception;
Error3: exception;
procedure ... ();
begin
...
raise Error1;
...
end;
Исправление
MOPKOBKA,
:
обработка ошибок топовая
Если я правильно понял, то она либо копирует, либо переизобретает ту систему что есть в Ada, но в Ada я бы сказал более красиво использовали begin end, добавив возможность вставить в середину еще и exception, который тоже самое что и catch в С подобных языках.
procedure Open_File is
File : File_Type;
begin
begin
Open (File, In_File, "input.txt");
exception
when E : Name_Error =>
Put ("Cannot open input file : ");
Put_Line (Exception_Message (E));
raise;
end;
end Open_File;
Сами ошибки надо описывать, но в одну строку
Error1: exception;
Error2: exception;
Error3: exception;
procedure ...();
Исправление
MOPKOBKA,
:
обработка ошибок топовая
Если я правильно понял, то она либо копирует, либо переизобретает ту систему что есть в Ada, но в Ada я бы сказал более красиво использовали begin end, добавив возможность вставить в середину еще и exception, который тоже самое что и catch в С подобных языках.
procedure Open_File is
File : File_Type;
begin
begin
Open (File, In_File, "input.txt");
exception
when E : Name_Error =>
Put ("Cannot open input file : ");
Put_Line (Exception_Message (E));
raise;
end;
end Open_File;
Сами ошибки надо описывать, но в одну строку
Root_Error1: exception;
Root_Error2: exception;
Root_Error3: exception;
Исправление
MOPKOBKA,
:
обработка ошибок топовая
Если я правильно понял, то она либо копирует, либо переизобретает ту систему что есть в Ada, но в Ada я бы сказал более красиво использовали begin end, добавив возможность вставить в середину еще и exception, который тоже самое что и catch в С подобных языках.
procedure Open_File is
File : File_Type;
begin
begin
Open (File, In_File, "input.txt");
exception
when E : Name_Error =>
Put ("Cannot open input file : ");
Put_Line (Exception_Message (E));
raise;
end;
end Open_File;
Исходная версия
MOPKOBKA,
:
обработка ошибок топовая
Если я правильно понял, то она либо копирует, либо переизобретает ту систему что есть в Ada, но в Ada я бы сказал более красиво использовали begin end, добавив возможность вставить в середину еще и exception.
procedure Open_File is
File : File_Type;
begin
begin
Open (File, In_File, "input.txt");
exception
when E : Name_Error =>
Put ("Cannot open input file : ");
Put_Line (Exception_Message (E));
raise;
end;
end Open_File;