Опубликован: 19.03.2004 | Доступ: свободный | Студентов: 2799 / 417 | Оценка: 3.98 / 3.79 | Длительность: 17:50:00
ISBN: 978-5-9556-0008-6
Лекция 8:

Компиляция функциональных программ

< Лекция 7 || Лекция 8: 123 || Лекция 9 >

Компиляция. Венский метод. Операционная семантика

Функциональный подход к программированию наиболее убедительно выражен в Венской методике определения языков программирования. Эта методика разработана в конце 60-х годов [ 8 ] . Основная идея — использование абстрактного синтаксиса и абстрактной машины при определении семантики языка программирования. Конкретный синтаксис языка отображается в абстрактный — анализ, а абстрактная машина может быть реализована с помощью конкретной машины — кодогенерация, причем и то, и другое может иметь небольшой объем и невысокую сложность. Сущность определения языка концентрируется в виде так называемой семантической функции языка, выполняющей переход от абстрактного синтаксиса к абстрактной машинетрансляцию.

При такой архитектуре компилятор можно рассматривать как три комплекта функций, обеспечивающих анализ программы, ее трансляцию и кодогенерацию. Главная задача анализа — обнаружить основные понятия и выделить, вывести или вычислить по тексту программы значения компонентов структуры, представляющей собой абстрактный синтаксис программы. Эта работа сводится к набору распознавателей и селекторов, названия которых могут быть выбраны в зависимости от смысла понятий, составляющих программу, а реализация варьируется в зависимости от конкретного синтаксиса языка. Тогда при любом конкретном синтаксисе разбор программы выполняется тем же самым определением, что и анализ ее абстрактного представления, которое играет роль спецификации. Любое определение анализа выглядит как перебор распознавателей, передающих управление композициям из селекторов, выбирающих существенные компоненты из анализируемой программы и заполняющих поля определенной структуры или значениями, или программами их вычисления. Содержимое полей предназначено для генерации кода программы, эквивалентной исходному тексту программы, а заодно и ее абстрактной структуре. Например, если форму PROG рассматривать как представление абстрактного синтаксиса для подмножества языка Паскаль, содержащего переменные, константы, арифметические операции и сравнения, пустой оператор, присваивание, последовательное исполнение операторов, условный оператор, безусловный переход GOTO и циклы, то необходим набор распознавателей, выявляющих эти понятия, и селекторов, выделяющих их характеристики. Селекторы имеют смысл лишь при истинности соответствующего распознавателя.

Использование списочных форм в качестве абстрактного синтаксиса позволяет все распознаватели свести к анализу головы списка.

Таблица 8.1. Абстрактный синтаксис операторов.
(перем X ) x
(конст C ) c
(плюс А1 А2 ) (A1 + A2)
(равно А1 А2 ) (A1 = A2)
(пусто)
(присвоить X A ) x := a
(шаги S1 S2 ) S1; S2;
(если P ST SF ) if p then ST else SF;
(пока P S ) while p do S;

Все селекторы сводятся к композиции CAR-CDR, выполняемой после соответствующего распознавателя. Так, в приведенных выше формах поля X, C, A1, S1, P можно выделить селектором, определенным как (LAMBDA (FM) (CAR(CDR FM))) — выделение второго элемента списка, а поля A2, S2, ST, S, расположенные третьими в списках — как (LAMBDA (FM) (CAR(CDR(CDR FM)))), поле SF — как (LAMBDA (FM) (CAR(CDR(CDR(CDR FM))))). Такие определения практически не требуют отладки, работают с первого предъявления.

Определение семантической функции, обеспечивающей корректную трансляцию абстрактного синтаксиса программы в ее абстрактный код, требует реализации соответствия между именами и их значениями в зависимости от контекста и предшествующих определений.

При интерпретации такое соответствие представлялось ассоциативным списком, в котором хранятся связи вида Имя-Смысл, преобразуемые по принципу стека, естественно отражающего динамику вызова функций. При компиляции не принято сохранять имена на время исполнения программы: их роль выполняют сопоставленные именам адреса. Поэтому вместо а-списка вида ((а . 1)(в . 2)(с . 3)...) применяется два списка (а в с ...) и (1 2 3 ...), хранящих имена и их значения на согласованных позициях. Обрабатываются эти два списка синхронно: оба удлиняются или сокращаются на одинаковое число элементов.

Можно переписать EVAL-APPLY с соответствующей коррекцией и определить функцию подстановки, заменяющую имена их значениями из синхронного списка.

Определение EVAL-APPLY особенно компактно в стиле p-списка. Иерархию определений можно организовать с помощью блоков FLET со списками определений для шаблонов (перем конст плюс равно) и отдельно для (пусто присвоить шаги если пока).

Важно обратить внимание на учет изменения контекста при последовательном выполнении шагов программы, а также на несовпадение порядка в тексте с очередностью выполнения композиций функций. Формально операторы могут рассматриваться как функции, преобразующие полное состояние памяти V. Пусть функция E списочному представлению оператора сопоставляет эквивалентную ему Лисп-функцию, вызываемую в контексте (DECLARE (SPECIAL N)) или (PARAMETER N).

Таблица 8.2. Примеры функциональной реализации операторов и выражений.
c
(LAMBDA (v)c)
(конст C)
x
(LAMBDA (v) (assoc-i X N v))
Nсвободная переменная, задающая список имен, известных в программе
(перем X)
(A1 + A2)
(LAMBDA (v) (+((Е А1)v) ((E А2)v)) )
(плюс А1 А2 )
(A1 = A2)
(LAMBDA (v)(= ((Е А1)v) ((E А2)v)) )
(равно А1 А2 )
(пусто)
(LAMBDA (v)v)
Состояние памяти V неизменно
x := a; Замена происходит по указанному адресу
(LAMBDA (v)(replace N v X ((E A)v))
(присвоить X A )
S1; S2;
(LAMBDA (v) (E S2 (E S1 v)))
(шаги S1 S2 )
if P then ST else SF;
(LAMBDA (v) (funcall
   (COND (((E P)v)((E ST)v)) (T((E SF)v)) )
                 v)
(если P ST SF)
while e do S; Циклу соответствует безымянная функция, строящая внутренний контекст
(LAMBDA (W) ((LAMBDA (v)
   (COND (((E P)v)(w ((E S)v)))(T v)))
(LAMBDA (v)(COND ( ((E P)v)(w
   ((E S)v)))(T v)))
))
(пока P S )

Денотационная семантика ЯП (математическая) определяет семантику языка в терминах соотношений между множествами. При задании операционной семантики важно отследить корректность обработки порождаемых структур данных, что может быть сформулировано как свойство чистого результата. Согласно этому свойству задана четкая дисциплина манипуляций со стеком при обработке данных: каждая операция берет из стека в точности все свои аргументы и обязательно располагает в нем свой единственный результат.

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

  • все аргументы убраны из стека;
  • результат выражения записан в стек.

Определение Лисп-компилятора на Лиспе

(DEFUNcompile-(s)(append (comp- s NIL)'(Ap Stop)))

  (DEFUN comp- (S N)(COND
 
   ((ATOM S) (list 'LD (adr S N)))
 
   ((EQ (car S)'QUOTE) (list 'LDC (cadr S)))
   ((EQ (car S)'CONS) (append (comp-(caddr S)N) 
      (comp-(cadr S)N) 'CONS))
   ((EQ (car S)'CAR) (append (comp-(cadr S)N)'CAR))
   ((EQ (car S)'+) (append (comp-(cadr S)N) (comp-
      (caddr S)N) 'ADD))
 
   ((EQ (car S)'IF) (let ( (then (list (comp-(caddr 
      S)N) '(JOIN)))
         (else (list (comp-(cadddr S)N) '(JOIN)) ))
         (append (comp-(cadr S)N) (list 'SEL then 
            else)) ))
 
   ((EQ (car S)'LAMBDA) (list 'LDF (comp-(caddr S) 
      (append (cadr S) N)) 'RTN))
 
((EQ (car S)'LET) (let* ((args (value (cddr S)))
         (mem (cons (var (cddr S)) N))
         (body (append (comp-(cadr S)mem) 'RTN)))
         (append (map #'(lambda(x)(comp- x N)) 
            args)
            (list body 'AP)) ))
 
   ((EQ (car S)'LABEL) (let* ((args (value (cddr S)))
         (mem (cons (var (cddr S)) N))
         (body (append (comp-(cadr S)mem) 'RTN)))
         (append '(DUM) (map #'(lambda(x)(comp- x 
            mem)) args)
            (list 'LDF body 'RAP)))))
(T (append (map #'(lambda(x)(comp- x N)) (cdr
      S))
   (list body 'AP)) )
))
< Лекция 7 || Лекция 8: 123 || Лекция 9 >
Федор Антонов
Федор Антонов

Здравствуйте!

Записался на ваш курс, но не понимаю как произвести оплату.

Надо ли писать заявление и, если да, то куда отправлять?

как я получу диплом о профессиональной переподготовке?

Илья Ардов
Илья Ардов

Добрый день!

Я записан на программу. Куда высылать договор и диплом?