LINUX.ORG.RU

История изменений

Исправление 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;