<<
>>

Модуль ERROR

Наш следующий набор подпрограмм обрабатывает ошибки. Чтобы освежить вашу память мы возьмем подход, заданный Borland в Turbo Pascal – останавливаться на первой ошибке. Это не только значительно упрощает наш код, полностью устраняя назойливую проблему восстановления после ошибок, но это также имеет намного больший смысл, по моему мнению, в интерактивной среде.

Я знаю, что это может быть крайней позицией, но я считаю практику сообщать обо всех ошибках в программе анахронизмом, пережитком со времен пакетной обработки. Пришло время прекратить такую практику. Так вот.

В нашем оригинальном Cradle мы имели две процедуры обработки ошибок: Error, которая не останавливалась, и Abort, которая останавливалась. Но я не думаю, что мы когда-либо найдем применение процедуре, которая не останавливается, так что в новом, тощем и скромном модуле Errors, показанном ниже, процедура Error занимает место Abort.

{–}

unit Errors;

{–}

interface

procedure Error(s: string);

procedure Expected(s: string);

{–}

implementation

{–}

{ Write error Message and Halt }

procedure Error(s: string);

begin

WriteLn;

WriteLn(^G, 'Error: ', s, '.');

Halt;

end;

{–}

{ Write « Expected» }

procedure Expected(s: string);

begin

Error(s + ' Expected');

end;

end.

{–}

Как обычно, вот программа для проверки:

{–}

program Test;

uses WinCRT, Input, Output, Errors;

begin

Expected('Integer');

end.

{–}

Вы заметили, что строка «uses» в нашей основной программе становится длиннее? Это нормально. В конечной версии основная программа будет вызывать процедуры только из нашего синтаксического анализатора, так что раздел uses будет иметь только пару записей. Но сейчас возможно самое лучшее включить все модули, чтобы мы могли протестировать процедуры в них.

<< | >>
Источник: Креншоу Джек. Давайте создадим компилятор!. 1999

Еще по теме Модуль ERROR:

  1. 8.5. МОЗГ КАК СОЦИУМ
  2. Н.В.СТРУМПЭ, В.Д.СИДОРОВ. АППАРАТНОЕ ОБЕСПЕЧЕНИЕ ЭВМ, 2014
  3. Гигабайты и гигабиты
  4. 3.6. Лабораторный опрос (Hall-test)
  5. Давайте обещания, которые придется выполнить
  6. Тема 9. СИСТЕМА ОБУЧЕНИЯ
  7. Что это такое и зачем оно нужно
  8. Задачи мониторинга включают:
  9. 6.5. NORC
  10. 1.6.2. Действующая система
  11. 1.6.3. Порядок установления
  12. 3.8. Личное интервью (face-to-face)
  13. 1.1. Сущность наблюдения
  14. 4.4. Проектирование системы теоретического обучения рабочих