名稱¶

Locale::Po4a::TransTractor - 通用翻譯提取器。

描述¶

Po4a (PO For Anything) 專案的目標是在文件等不需要翻譯的領域使用 gettext 工具簡化翻譯(更有趣的是，簡化翻譯的維護)。

這個類是每個 po4a 解析器的祖先，用於解析文件、搜尋可翻譯字串、將它們提取到 PO 檔案並在輸出文件中用它們的翻譯替換它們。

更正式地說，它接受以下引數作為輸入：

• 要翻譯的文件;
• 包含要使用的翻譯的 PO 檔案。

作為輸出，它產生：

• 另一個 PO 檔案，其結果是從輸入文件中提取可翻譯字串;
• 翻譯的文件，其結構與輸入中的文件相同，但所有可翻譯字串都替換為輸入中提供的 PO 檔案中的翻譯。

以下是這一點的圖形表示：

   輸入文件 --\                             /---> 輸出文件
                     \                           /       (已翻譯)
                      +-> 解析() 函式 -----+
                     /                           \
   輸入 PO --------/                             \---> 輸出 PO
                                                         (已提取)

解析器應該重寫的函式¶

parse()

所有工作都在這裡進行：解析輸入文件、生成輸出和提取可翻譯字串。使用下面 INTERNAL FUNCTIONS 章節中提供的函式可以非常簡單地實現這一點。另請參閱 SYNOPSIS，它提供了一個示例。

此函式由下面的 process() 函式呼叫，但如果您選擇使用 new() 函式，並手動將內容新增到文件中，則必須自己呼叫此函式。

docheader()

此函式返回我們應該新增到生成的文件中的標題，並將其正確引用為目標語言中的注釋。有關它的好處，請參閱 po4a(7) 中的 Educating developers about translations 章節。

簡介¶

下面的示例解析以 "<p>" 開頭的段落列表。為簡單起見，我們假定文件格式良好，即 "<p>" 標記是唯一存在的標記，並且該標記位於每個段落的最開始。

 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;
   }
 }

一旦實現瞭解析函式，就可以使用下一節中介紹的公共介面來使用 document 類。

使用解析器的指令碼的公共介面¶

用於編寫派生解析器的內部函式¶

 * Perl shift 返回第一個陣列項並將其從陣列中刪除。
 * Perl unshift 將項作為第一個陣列項新增到陣列中。
 * Perl pop 返回最後一個數組項並將其從陣列中刪除。
 * Perl push 將一項作為最後一個數組項追加到陣列中。

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

未來方向¶

當前翻譯提取器的一個缺點是它不能處理包含所有語言的翻譯文件，如 debconf 模板或 .desktop 檔案。

要解決此問題，只需更改介面：

• 將雜湊作為 po_in_name (每種語言的列表)
• 新增要翻譯的引數以指示目標語言
• 使用類似對映的語法建立一個 pushline_all 函式，該函式將為所有語言建立其內容的 pushline：

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

看看是否足夠 ;)

作者¶

 Denis Barbier <barbier@linuxfr.org>
 Martin Quinson (mquinson#debian.org)
 Jordi Vilalta <jvprat@gmail.com>