!! В данный момент модуль alterator-perl-functions меняется, и вряд ли его стоит сейчас использовать. Надеюсь, что вскоре он придет к какому-то более стабильному состоянию... !!
alterator-perl-functions
Поддержка переводов
- определена функция _()
- перед запуском message_loop надо выставить переменную $TEXTDOMAIN. Если переменная не выставлена, модуль ругается и выставляет ее в alterator-<имя бакенда>
- язык выставляется из параметра language заново для каждой команды. Значение по умолчанию 'en_EN'
Вывод
В процедуре on_message сделано перенаправление STDOUT->STDERR. Все ответы должны выполняться только специальными командами:
Самый низкий уровень. Возможно, потом получится от них отказаться:
* write_plain($string1, ...) — запись произвольной строки
* write_begin() — запись "("
* write_end() — запись ")"
Запись пары «имя значение» для разных типов значений.
* write_string_param($name, $string1, ...) — защищаются символы " и \, выводится строка в кавычках
* write_bool_param($name, $string) — понимаются значения («on», “off”, “yes”, “no”, “true”, “false”, “y”, “n”, "#t”, "#f”, 1, 0). В остальных случаях модуль ругается и записывает #f
* write_num_param($name, $num) — записывается число; если дали не число – ругается и записывает 0
* write_error = write_string_param('error', @_);
DEBUG
* Если переменная $DEBUG выставлена в ненулевое значение, модуль выдает на stderr все полученные и отправленные сообщения.