Брайан Керниган - UNIX — универсальная среда программирования

Добавьте для отладки к hoc5средство печати создаваемых машинных команд в понятной форме.

Введите в свою программу операции присваивания из языка Си вида +=, *=и т.п., а также операции инкремента и декремента ++и --. Измените операции &&и ||так, чтобы обеспечить вычисление слева направо и условное вычисление, как в Си программах.

Введите в hoc5оператор for, как в Си-программах. Добавьте операторы breakи continue.

Как бы вы изменили грамматику или лексический анализатор hoc5(или и то, и другое), чтобы сделать программу более "терпимой" к использованию символов перевода строки? Каким образом можно ввести символ в качестве синонима символа перевода строки? Как ввести в язык примечания? Какой синтаксис, по вашему мнению, нужно использовать?

Добавьте к hoc5средства обработки прерываний, чтобы некорректные вычисления можно было остановить без потери значений уже вычисленных переменных.

Неудобно создавать программный файл, запускать его на выполнение, а затем редактировать с целью внесения небольших изменений. Как бы вы изменили hoc5, чтобы создать команду редактирования, которая автоматически вызывала бы редактор с уже считанной копией вашей hoc-программы? Подсказка : изучите текст функции.

На последнем из описываемых здесь этапе развития программа значительно разрастается: в нее добавляются процедуры и функции, средства печати строк символов наряду с числами и чтения чисел из стандартного входного потока. Кроме того, в язык hoc6вводятся аргументы имен файлов, включая имя "-", обозначающее стандартный входной поток. Все эти изменения увеличивают программу на 235 строк, доводя ее общий размер до 810 строк. В результате hocпреобразуется из калькулятора в интерпретатор языка программирования. Полностью программа приводится в приложении 3.

В грамматике вызовы функции определяются как выражения, а вызовы процедур как операторы. И то, и другое детально поясняется в приложении 2, где дается еще несколько примеров. Так, определение и использование процедуры печати всех чисел Фибоначчи, меньших заданного параметра, происходят следующим образом:

$ cat fib

proc fib() {

a = 0

b = 1

while (b < $1) {

print b

с = b

b = a+b

a = с

}

print "\n"

}

$ hoc6 fib -

fib(1000)

1 1 2 3 5 8 13 21 34.55 89 144 233 377 610 987

...

Здесь также показано использование файлов: имя файла "-"задает стандартный входной поток.

Ниже приведена функция "факториал":

$ cat fac

func fac() {

if ($1 <= 0) return 1 else return $1 * fac($1-1)

}

$ hoc6 fac -

fac(0)

1

fac(7)

5040

fac(10)

3628800

...

Внутри процедуры или функции к параметрам можно обращаться с помощью $1и т.д., как в командных файлах, но, кроме того, допустимо присваивание параметрам. Функции и процедуры рекурсивны, но в качестве локальных переменных можно использовать только параметры; остальные переменные являются глобальными, т.е. доступными во всей программе.

В языке hocфункции и процедуры различаются, что дает возможность проверки, ценной для освобождения стека. (Ведь так легко забыть выполнить возврат или записать липшее выражение и получить несбалансированный стек!)

Требуется значительное число изменений для преобразования грамматики при переходе от hoc5к hoc6, но все они локальные. Нужны новые лексемы и нетерминальные символы, а в описание %unionнеобходимо ввести новый элемент для хранения числа аргументов:

$cat hoc.y

...

%{

#include "hoc.h"

#define code2(c1,c2) code(c1); code(c2)

#define code3(c1,c2,c3) code(c1); code(c2); code(c3)

%}

%union {

Symbol *sym; /* symbol table pointer */

Inst *inst; /* machine instruction */

int narg; /* number of arguments */

}

%token NUMBER STRING PRINT VAR BLTIN UNDEF WHILE IF ELSE

%token FUNCTION PROCEDURE RETURN FUNC PROC READ

%token ARG

%type expr stmt asgn prlist stmtlist

%type cond while if begin end

%type procname

%type arglist

%right '='

%left OR

%left AND

%left GT GE LT LE EQ NE

%left '+'