Интерфейсные драйверы в alterator

На данный момент в alterator поддерживаются интерфейсы Qt и Http. Как же удаётся lookout одновременно работать со столь различными по подходу вариантами? Всё дело в волшебных пузырьках – то есть в драйверах.

Интерфейс драйвера

Каждый драйвер интерфейса предоставляет как минимум следующую информацию:

• О реализации основных виджетов, например button, label, textbox. Делается это через инструкцию declare-widget. Реализация описывается как правило с помощью объектов?.
• Определение конструктора интерфейса (например для Qt – это соответствует созданию объекта QApplication), деструктура интерфейса и запуска интерфейса. Делается это через инструкции: declare-application-constructor, declare-application-destructor и declare-application-runner.
• Определение корневого виджета в который погружается любое описание интерфейса – declare-root-widget.
• Определение popup виджета в который погружается описание интерфейса, который мы желаем видеть как всплывающий диалог – declare-popup-widget.
• Определение процедуры, которая выдаёт список языковых предпочтений – это специфично для отдельных видов интерфейса. Инструкция – declare-language-selector.
• Дополнительные определения, например схема работы с tabbox оказалась настолько различной в разных реализациях интерфейсов, что потребовалась ручное определение функций.

Вот небольшой фрагмент описания готового драйвера для http-интферфейса:
(declare-widget button (make-http-widget "button") text) (declare-widget label (make-http-widget "label") text) (declare-widget edit (make-http-widget "edit") text) (declare-widget hbox (make-http-widget "hbox")) (declare-widget vbox (make-http-widget "vbox")) (declare-widget groupbox (make-http-widget "groupbox") title) (declare-widget textbox (make-http-widget "textbox") text) (declare-widget tab-page (make-http-widget "tab-page") text) (declare-widget tabbox (make-http-widget "tabbox")) ;wrapper over tab-page (define-macro (tab <name> . <args>) `(tab-page ,<name> (vbox . ,<args>))) (declare-widget listbox (make-http-widget "listbox" make-http-listbox)) (declare-application-constructor make-http-application) (declare-application-destructor delete-http-application) (declare-application-runner exec-http-application) (declare-root-widget (make-http-widget "vbox")) (declare-popup-widget (make-http-widget "dialog" make-http-dialog)) (declare-lang-selector (lambda() (define-operation get-lang) (list (or (get-lang (fluid-ref http-session)) "en"))))

Драйвер Qt

Драйвер Qt устроен относительно просто (суммарный объём исходного текста драйвера – чуть больше 120K).
Создание, удаление интерфейса соответствует в точности созданию и удалению QApplication. Описание виджетов практически напрямую отображаются соответствующие объекты Qt: QPushButton, QLabel, и так далее. Корневой виджет – фактически vbox, а Popup – QDialog. Запуск интерфейса состоит в получении описания виджета с идентификатором «/», заключению его в popup и запуске диалога. По завершению работы с основным диалогом работа с интерфейсом заканчивается.

Большая часть драйвера описана на C++, остальное – на Scheme. Мостик между этими языками настолько крошечный что при переходе на другую реализацию схемы менять придётся не много. Связующие функции делатся на две группы:

• Функции управления виджетами:
  • dlg-make-виджет – серия функций для создания того или иного виджета. Указатель на qt_widget* хранится в scheme как SMOB.
  • widget-set-attr – изменение аттрибута Qt-виджета
  • widget-get-attr – получение аттрибута Qt-виджета
  • widget-start – запуск диалога
  • widget-stop – останов диалога (в принципе эти два метода можно свести к widget-set-attr)
  • widget-delete – удаление виджета. Обращаю внимание что применяется отложенное удаление виджетов через deleteLater потому что иногда виджеты могут удалять сами себя, например, при замене содержимого диалога «на лету».
• Функции трансформирования объектов Scheme в объекты C++:
  • bool2scm, scm2bool – в bool и обратно.
  • str2scm,scm2str – в char* и обратно
  • num2str,str2num – в int и обратно.
  • symbol2scm,scm2symbol – символы в строки и обратно.

В части C++ построена иерархия объектов, наследников базового типа qt_widget. Каждый наследник является маленькой оболочкой вокруг того или иного виджета qt и в его задачу входит: разбирать входящие запросы на изменение/получение аттрибутов. Перехватывать события qt и передавать их вызов в соответствующий callback на уровне Scheme. Часть слотов реализована так что их вызов происходит отложенным ибо может происходить изменение объекта «из-под самого себя», чего не могут пережить часть виджетов Qt. Также во избежание проблем с зацикливанием вызов callback'a Scheme происходит только в случае поступления события от пользователя, а не в случае попутного вызова в результате операций set.

В части Scheme построена небольшая иерархия объектов?. Иерархия потребовалась для введения уточнений и более удобной работы с listbox и popup.

Предпочитаемые языки определяются согласно переменным среды, то есть фактически точно также как действовал бы обычный gettext.

Драйвер Http

Более сложный драйвер. Состоит из трёх отдельных частей:
* сервер – обеспечивает хранение состояний пользовательских сессий, аутентификацию и обработку callback'ов.
* fcgi-скрипт – мостик между сервером и web-браузером. Принимает Http-запросы, считывает и выставляет cookies.
* javascript – работает на клиентском браузере, здесь собственно заканчивается alterator и начинается движок интерфейса – *qooxdoo*.
Можно смотреть как на мостик между Javascript и Scheme.