16
Пример: генерация HTML
В этой главе мы напишем небольшой HTML-генератор – программу, ав томатически производящую набор связанных веб-страниц. Она не толь ко демонстрирует различные концепции Лиспа, но и является хорошим примером разработки «снизу-вверх». Мы начнем с создания HTML-ути лит общего назначения, которые затем будем рассматривать как язык, на котором и будем писать собственно генератор.
16.1. HTML
HTML (HyperText Markup Language, язык разметки гипертекста) – это то, из чего состоят веб-страницы. Это очень простой язык, не имеющий продвинутых возможностей, но зато он легок в изучении. В этом разде ле представлен обзор HTML.
Веб-страницы просматриваются с помощью веб-браузера, который по лучает код страницы (как правило, с удаленного компьютера), преобра зовывает его в читаемый вид и выводит на экран. HTML-файл – это тек стовый файл, содержащий разметку, воспринимаемую браузером как инструкции.
На рис. 16.1 приведен пример простого HTML-файла, а на рис. 16.2 по казано, как он будет отображаться в браузере. Обратите внимание, что текст между угловыми скобками не отображается. Это и есть разметка. HTML имеет два вида меток. Одни используются попарно:
<метка> ... </метка>
Первая метка обозначает начало некоторого окружения, вторая помеча ет его окончание. Одной из меток такого рода является <h2>. Весь текст, находящийся между <h2> и </h2>, отображается увеличенным шрифтом. (Наибольший шрифт задается <h1>.)
264 |
Глава 16. Пример: генерация HTML |
<center>
<h2>Your Fortune</h2> </center>
<br><br>
Welcome to the home page of the Fortune Cookie Institute. FCI is a non-profit institution dedicated to the development of more realistic fortunes. Here are some examples of fortunes that fall within our guidelines:
<ol>
<li>Your nostril hairs will grow longer. <li>You will never learn how to dress properly. <li>Your car will be stolen.
<li>You will gain weight. </ol>
Click <a href="research.html">here</a> to learn more about our ongoing research projects.
Рис. 16.1. HTML-файл
Your Fortune
Welcome to the home page of the Fortune Cookie Institute. FCI is a nonprofit institution dedicated to the development of more realistic fortunes. Here are some examples of fortunes that fall within our guidelines:
1.Your nostril hairs will grow longer.
2.You will never learn how to dress properly.
3.Your car will be stolen.
4.You will gain weight.
Click here to learn more about our ongoing research projects.
Рис. 16.2. Внешний вид веб-страницы
Другие парные метки: <ol> («ordered list», упорядоченный список) для создания нумерованного списка; <center> для центрирования текста; <a...> («anchor», якорь) для создания ссылки.
Именно ссылки превращают текст в гипертекст. Текст, находящийся между <a...> и </a>, отображается браузерами особым образом, как пра вило, с подчеркиванием. При нажатии на ссылку осуществляется пере ход на другую страницу, адрес которой содержится внутри метки. Сле дующая метка
16.2. Утилиты HTML |
265 |
<a href="foo.html">
означает ссылку на другой HTML-файл, находящийся в том же катало ге. Таким образом, при нажатии на ссылку на рис. 16.2 браузер загру зит и отобразит файл "research.html".
Ссылки не обязаны указывать на файлы в одном и том же каталоге, но могут указывать и на любой адрес в Интернете (хотя в нашем примере это не используется) .
Другая разновидность меток не имеет маркера окончания. В нашем примере (см. рис. 16.1) используются метки <br> («break», разрыв) для перехода на новую строку и <li> («list item», элемент списка) для обозна чения элемента внутри окружения списка. Разумеется, HTML содер жит и другие метки, но в этой главе нам понадобятся лишь те, которые упомянуты на рис. 16.1.
16.2.Утилиты HTML
Вэтом разделе мы определим некоторые утилиты для генерации HTML. На рис. 16.3 показаны базовые утилиты для генерации разметки. Все они направляют вывод в *standard-output*, но мы всегда сможем перена править его, переназначив эту переменную.
(defmacro as (tag content) ‘(format t "<~(~A~)>~A</~(~A~)>"
’,tag ,content ’,tag))
(defmacro with (tag &rest body) ‘(progn
(format t "~&<~(~A~)>~%" ’,tag) ,@body
(format t "~&<~(~A~)>~%" ’,tag)))
(defun brs (&optional (n 1)) (fresh-line)
(dotimes (i n) (princ "<br>"))
(terpri))
Рис. 16.3. Утилиты для генерации разметки
Макросы as и with предназначены для генерации выражений, окружен ных парой меток. Первый принимает строку и печатает ее между мет ками:
> (as center "The Missing Lambda") <center>The Missing Lambda</center> NIL
266 Глава 16. Пример: генерация HTML
Второй принимает тело кода и выводит результат его выполнения меж ду метками:
> (with center
(princ "The Unbalanced Parenthesis")) <center>
The Unbalanced Parenthesis </center>
NIL
Оба эти макроса используют управляющие директивы ~( и ~) для печа ти меток в нижнем регистре. На самом деле, HTML не чувствителен к регистру, но метки в нижнем регистре легче воспринимаются, особен но если их много.
В то время как макрос as пытается разместить весь вывод на одной стро ке, макрос with располагает метки на отдельных строках. (Директива ~& обеспечивает начало вывода с новой строки.) Это делается лишь для то го, чтобы HTML-файлы лучше читались. При отображении страниц пробельные символы вокруг меток не показываются.
Последняя утилита на рис. 16.3, brs, генерирует множественные разры вы строк. Во многих браузерах они могут использоваться для управле ния вертикальными отступами.
Рисунок 16.4 содержит утилиты для непосредственной генерации HTML. Первая возвращает имя файла по заданному символу. В реальном при ложении она могла бы вернуть полный путь к файлу в указанном ката логе. Здесь же она просто присоединяет к имени расширение ".html".
Макрос page служит для генерации всей страницы. Он схож с with-open- file, на основе которого построен. Выражения в его теле будут выполне ны с привязкой *standard-output* к потоку, созданному при открытии файла, соответствующего символу name.
(defun html-file (base)
(format nil "~(~A~).html" base))
(defmacro page (name title &rest body) (let ((ti (gensym)))
‘(with-open-file (*standard-output* (html-file ,name) :direction :output :if-exists :supersede)
(let ((,ti ,title)) (as title ,ti) (with center
(as h2 (string-upcase ,ti))) (brs 3)
,@body))))
Рис. 16.4. Утилиты создания файлов
16.2. Утилиты HTML |
267 |
В разделе 6.7 было показано, как присваивать временные значения спе циальным переменным. В примере на стр. 124 мы устанавливали значе ние *print-base* в 16 в теле let. Раскрытие page похожим образом связы вает *standard-output* с потоком, указывающим на HTML-файл. Если мы вызовем as или princ в теле page, то вывод будет перенаправлен в со ответствующий файл.
Заголовок title будет напечатан в самом верху страницы. За ним следу ет весь остальной вывод. Таким образом, вызов:
(page ’paren "The Unbalanced Parenthesis"
(princ "Something in his expression told her..."))
приведет к тому, что файл "paren.html" будет иметь (поскольку html-file уже определен) следующее содержание:
<title>The Unbalanced Parenthesis</title> <center>
<h2>THE UNBALANCED PARENTHESIS</h2> </center>
<br><br><br>
Something in his expression told her...
Здесь нам знакомы все метки, кроме <title>. Текст, заключенный в мет ку <title>, не будет появляться нигде на странице, но зато он будет ото бражаться браузером в заголовке окна.
(defmacro with-link (dest &rest body) ‘(progn
(format t "<a href=\"~A\">" (html-file ,dest)) ,@body
(princ "</a>")))
(defun link-item (dest text) (princ "<li>")
(with-link dest (princ text)))
(defun button (dest text) (princ "[ ") (with-link dest
(princ text)) (format t " ]~%"))
Рис. 16.5. Утилиты для генерации ссылок
На рис. 16.5 представлены утилиты для генерации ссылок. Макрос with-link похож на with. Он принимает тело кода и вычисляет его между выражениями, которые генерируют ссылку на HTML-файл, имя кото рого было передано вторым аргументом: