shoorick

• Документация на cpan.org показывается в правильной кодировке. Правда, всё равно pod2html ругается, что не знает слова =encoding, а в man-страницах кириллица пропадает вовсе.
• Добавлена документация на русском языке.
• Добавлена функция choose_prepositions_by_next_word для выбора предлога с беглой гласной по следующему за ним словом, а также куча коротких имён для вызова этой функции с разными предлогами: izo, ob, so и т. п.
• Добавлены новые тесты. Выявленные при добавлении баги пофиксены.

\revert Rest #'direction

\override MultiMeasureRest #'staff-position = 0

0. Держать по несколько версий одного и того же скрипта, отличающихся лишь выводимыми строками — неправильно. Значит, надо разобраться с интернационализацией.
1. Пытаюсь понять, как использовать gettext в перлосриптах. Пока не совсем понятно. Толковую доку на русском не нагуглил, пытаюсь понять на аглицком.
2. Глядя в мануал и творчески применяя напильник, сотворил скрипт (тут приведена далеко не первая итерация):

   #!/usr/bin/perl -w
   use strict;
   
   use Locale::gettext;
   use POSIX;
   setlocale( LC_MESSAGES, '' );
   
   # OO interface
   my $d = Locale::gettext->domain_raw( 'man_1' );
   $d->dir( 'i18n' );
   
   # __ is alias for $d->get
   sub __ ($) { $d->get( shift ) }
   
   print __ 'Hello world!', "\n";
   print gettext( 'Who they are?!' ), "\n";
   print $d->get( 'Goodbye world!' ), "\n";
   

   добыл список строк командой xgettext, добавил к нему перевод (можно вручную, можно задействовать kbabel), скомпилировал при помощи msgfmt, сложил полученный перевод в ./i18n/ru_RU.UTF-8/LC_MESSAGES, подвожу итоги:
   • gettext обнаруживается xgettext'ом, но не работает (в мануале: Perl programs should use the object interface.)
   • $d->get работает, но отвратительно выглядит (что обходится вводом псевдонима — функции __) и не обнаруживается xgettext'ом
   • __ работает, выглядит хорошо, но тоже не обнаруживается xgettext'ом.
3. Исходя из имеющейся ситуации самым правильным, наверное, будет научить xgettext находить в исходнике те строки, перед которыми стоит __
4. Пошёл читать мануал дальше...

Послушав мнение коллег, решил что для преобразований XML → (X)HTML лучше всего подойдёт XSLT. Но чем преобразовывать? Первый попавшийся учебник рассказывал об интерфейсах на разных языках, но перла среди них на было.

Однако, перловый программер про CPAN вспоминает быстро. Недолго думая, нашёл XML::XSLT, в мане на который есть пример, подлежащий весьма небольшой обработке напильником надфилем до работоспособного состояния:

#!/usr/bin/perl -w

use strict;
use XML::XSLT;

die qq{XML Transformer\nUsage:\n\t$0 xml-file xslt-file\n}
    if ($#ARGV < 1);

my $xslt = XML::XSLT->new($ARGV[1], warnings => 1);

$xslt->transform($ARGV[0]);
print $xslt->toString;

$xslt->dispose();

upd/18:15: ковыряние показало непрограммерский путь:

$ xsltproc xslt-file xml-file