Бакенд

Существует два вида бакендов: нативные и внешние. Размещаются эти бакенды в каталогах /usr/lib/alterator/backend2 и /usr/lib/alterator/backend3 соответственно.

Нативные бакенды пишутся только на языке scheme и работают внутри процесса alterator. Написание нативных бакендов требует достаточно большого опыта программирования и большой аккуратности.

Внешний бакенд может быть написан на произвольном языке програмирования, при этом настоятельно рекомендуется использовать готовые библиотеки, предоставляющие API для взаимодействия с alterator. Все библиотеки построены по одному и тому же принципу – есть главный цикл взаимодействующий с alterator и есть функция-обработчик пришедших сообщений.
В функции обработчике:

• анализируется вид запроса (параметр action)
• анализируется url запроса, а также значения входных параметров
• вычисляются и выводятся значения выходных параметров.

Пример простейшего бакенда на shell:
#!/bin/sh -f po_domain="alterator-foo" api_version=1 . alterator-sh-functions on_message() { case "$in_action" in list) write_enum_item "item1" "label1" write_enum_item "item2" "label2" ;; read) case "$in__objects" in url1) write_string_param param1 "value1";; url2) write_bool_param param2 "yes";; esac ;; write) [ -n "$in_param1" ] && echo "$in_param1" >/tmp/file1 test_bool "$in_param2" && echo "yes">/tmp/file2 ;; esac } message_loop
В данном примере: message_loop — запуск цикла обработки событий, on_message — обработчик входящих сообщний. Входные переменные выглядят как переменные $in_<имя>. Выходные печатаются при помощи функций write_* . alterator_api_version – текущая версия API для взаимодействия с alterator. Если к к бакенду <name> обращались из интерфейса по адресу /<name>/foo/bar, то переменная $in__objects будет равна «foo/bar» (то есть «хвост» адреса), если обращались по адресу /<name>, то $in__objects будет равна «/».

Пример аналогичного бакенда на perl (см. также здесь):
#!/usr/bin/perl -w use strict; use Alterator::Backend3; $TEXTDOMAIN='alterator-foo'; $DEBUG = 1; sub on_message{ my message=shift; if ($message->{action} eq 'list'){ write_named_auto_list('item1', 'label', 'label1'); write_named_auto_list('item2', 'label', 'label2'); } elsif ($message->{action} eq 'read'){ write_string_param('param1', 'value1'); write_bool_param('param2', 'yes'); } elsif ($message->{action} eq 'write'){ print F1 $message->{param1} if (exists($message->{param1})); print F2 ($message->{param2} eq '#t')? 'yes':'no' if (exists($message->{param2})); } } message_loop(\&on_message);