Locale::Po4a::TransTractor

ИМЕ

ОПИС

-

документ који се преводи;

-

PO фајл са преводима који треба се употребе.

-

други PO фајл, који настаје као резултат издвајања преводивих стрингова из улазног документа;

-

преведени документ, са истом структуром као и онај са улаза, али у коме су сви стрингови замењени са преводима пронађеним у PO фајлу који је наведен у улазу.

   Улазни документ --\                             /---> Излазни документ
                      \                           /       (преведен)
                       +-> parse() функција -----+
                      /                           \
   Улазни PO --------/                             \---> Излазни PO
                                                         (издвојен)

ФУНКЦИЈЕ КОЈЕ БИ ВАШ ПАРСЕР ТРЕБАЛО ДА ПРЕИНАЧИ

parse()

Ово је место на којем се обавља сав посао: парсирање улазних докумената, генерисање излаза и издвајање преводивих стрингова. Ово је прилично једноставно употребом приложених функција приказаних у одељку ИНТЕРНЕ ФУНКЦИЈЕ испод. Погледајте такође СИНОПСИС, који представља пример. Ову функцију позива функција process() испод, али ако изаберете да користите функцију new(), и да ручно додате садржај у свој документ, ову функцију ћете морати сами да позовете.

docheader()

Ова функција враћа заглавље које би требало да се дода у креирани документ, прописно цитирано тако да буде коментар у циљном језику. Погледајте одељак Едуковање девелопера у вези превода, из po4a(7), у вези онога за шта је добра ова функција.

СИНОПСИС

 sub parse {
   my $self = shift;
   PARAGRAPH: while (1) {
       my ($paragraph,$pararef)=("","");
       my $first=1;
       my ($line,$lref)=$self->shiftline();
       while (defined($line)) {
           if ($line =~ m/<p>/ && !$first--; ) {
               # Није први пут да видимо <p>.
               # Поново постави текућу линију у улаз,
               # и стави изграђени пасус у излаз
               $self->unshiftline($line,$lref);
               # Сада када је документ формиран, преведи га:
               #   - Уклони водећу ознаку
               $paragraph =~ s/^<p>//s;
               #   - гурни у излаз водећу ознаку (непреведену) као и
               #     остатак пасуса (преведен)
               $self->pushline(  "<p>"
                               . $self->translate($paragraph,$pararef)
                               );
               next PARAGRAPH;
           } else {
               # Додај на крај пасуса
               $paragraph .= $line;
               $pararef = $lref unless(length($pararef));
           }
           # Поново иницијализуј петљу
           ($line,$lref)=$self->shiftline();
       }
       # Није добијена дефинисана линија? Крај улазног фајла.
       return;
   }
 }

ЈАВНИ ИНТЕРФЕЈС за скрипте које користе ваш парсер

Конструктор

process(%)

Ова функција може да уради све што је потребно да се уради са po4a документом у једном позиву. Њени аргументи морају да се упакују као хеш. АКЦИЈЕ:

new(%)

Креира нови po4a документ. Прихватају се опције (у хешу који се прослеђује као параметар):

Манипулација фајловима докумената

read($$)

Додаје податке другог улазног документа на крај постојећег низа "@{$self->{TT}{doc_in}}". Аргумент је име фајла који треба да се прочита. Ако се зада и други аргумент, он представља име фајла који треба да се користи у референцама. Низ "@{$self->{TT}{doc_in}}" чува податке из овог улазни документа као низ стрингова са наизменичним значењима.
* Стринг $textline који држи сваку линију улазног текста.
* Стринг "$filename:$linenum" који држи његову локацију и који се
зове "reference" ("linenum" почиње од 1). Имајте на уму, молим вас, да ово још ништа не парсира. Када завршите са паковањем улазних фајлова у документ, требало би да употребите функцију parse().

write($)

Уписује преведени документ у фајл са датим именом. Ови подаци преведеног документа се добијају из:
* "$self->docheader()" који чува текст заглавља за модул додатка, и
* "@{$self->{TT}{doc_out}}" који у низу чува сваку линију главног преведеног текста.

Манипулација PO фајловима

readpo($)

Додаје садржај фајла (чије име је прослеђено као аргумент) постојећем улазном PO. Стари садржај се не одбацује.

writepo($)

Уписује издвојени PO фајл у дато име фајла.

stats()

Враћа неке статистичке податке у вези до сада одрађеног превода. Имајте не уму, молим вас, да ово није иста статистика коју исписује msgfmt --statistic. Овде је то статистика у вези скорашње употребе PO фајла, док msgfmt пријављује статус фајла. То је функција која обавија функцију Locale::Po4a::Po::stats_get function примењену на улазни PO фајл. Пример употребе:

    [нормална употреба po4a документа...]
    ($percent,$hit,$queries) = $document->stats();
    print "Пронашли смо преводе за $percent\%  ($hit од $queries) стрингова.\n";
    

Манипулација додацима

addendum($)

Молимо погледајте po4a(7) за више информација о томе шта су додаци, и како би преводиоци требало да их пишу. Да бисте применили додатак на преведени документ, једноставно проследите име његовог фајла овој функцији и то је то ;) У случају грешке, ова функција враћа цео број различит од нуле.

ИНТЕРНЕ ФУНКЦИЈЕ које се користе за писање изведених парсера

Добављање улаза, обезбеђивање излаза

 * Perl shift враћа прву ставку низа и уклања је из њега.
 * Perl unshift ставља ставку на почетак низа као прву.
 * Perl pop враћа последњу ставку низа и уклања је из њега.
 * Perl push додаје ставку у низ као последњу.

shiftline()

Ова функција враћа прву линију која треба да се парсира у њену одговарајућу референцу (упаковано као низ) из низа "@{$self->{TT}{doc_in}}" и уклања ове прве 2 ставке низа. Референцу овде обезбеђује стринг "$filename:$linenum".

unshiftline($$)

Unshift-ује последњу shift-овану линију улазног документа и њену одговарајућу референцу назад на почетак "{$self->{TT}{doc_in}}".

pushline($)

Ради push нове линије на крај "{$self->{TT}{doc_out}}".

popline()

Ради pop последње push-оване линије са краја "{$self->{TT}{doc_out}}".

Обележавање стрингова као преводивих

translate($$$)

Обавезни аргументи:

  $self->translate("string","ref","type",
                   'wrap' => 1);

Разне функције

verbose()

Враћа информацију да ли је током креирања објекта TransTractor прослеђена опција детаљног извештавања.

debug()

Враћа информацију да ли је приликом креирања објекта TransTractor била прослеђена опција детаљнијег извештавања.

detected_charset($)

Ово говори TransTractor -у да је откривен нови скуп карактера (први аргумент) у улазном документу. Обично може да се прочита из заглавља документа. Преостаће само први скуп карактера, који долази или из аргумената функције process(), или се детектује из документа.

get_out_charset()

Ова функција ће да врати скуп карактера који би требало да се користи у излазном документу (обично је корисно за замену скупа карактера детектованог у улазном документу у коме је пронађен). Користиће излазни скуп карактера наведен у командној линији. Ако није био задат, користиће се скуп карактера улазног PO, а ако улазни PO има подразумевану вредност „CHARSET”, вратиће скуп карактера улазног документа, тако да се не обавља кодирање..

recode_skipped_text($)

Ова функција враћа рекодирани текст који јој је прослеђен као аргумент, из скупа карактера улазног документа у скуп карактера излазног документа. Ово није неопходно када се се стринг преводи (функција translate() сама све рекодира), али је неопходно када прескочите стринг из улазног документа и желите да излазни документ буде у сагласности са глобалним кодирањем.

СМЕРНИЦЕ ЗА БУДУЋНОСТ

-

po_in_name треба да узима хеш (листу за сваки појединачни језик)

-

додати аргумент функцији translate који наводи циљни језик

-

креирати функцију pushline_all, која би одрадила pushline свог садржаја за све језике, користећи синтаксу сличну са map:

    $self->pushline_all({ "Description[".$langcode."]=".
                          $self->translate($line,$ref,$langcode)
                        });
    

АУТОРИ

 Дени Барбије <[email protected]>
 Мартин Квинсон (mquinson#debian.org)
 Жорди Вилалта <[email protected]>