LOCALE::PO4A::TRANSTRACTOR.3PM(1) User Contributed Perl Documentation LOCALE::PO4A::TRANSTRACTOR.3PM(1)

Locale::Po4a::TransTractor - generischer Übersetzungs-Ausleser

Das Projektziel von Po4a (PO für alles) ist es, die Übersetzung (und interessanter, die Wartung der Übersetzung) zu vereinfachen, indem die Gettext-Werkzeuge auch für Gebiete verwendet werden, wo diese nicht erwartet werden, wie Dokumentation.

Diese Klasse ist Vorfahr jedes Po4a-Parsers. Sie wird zum Auswerten eines Dokuments, zur Suche nach übersetzbaren Zeichenketten, zum Auslesen in eine PO-Datei und zur Ersetzung durch ihre Übersetzung im Ausgabedokument, verwandt.

Oder formaler, sie erwartet die folgenden Argumente als Eingabe:

  • ein zu übersetzendes Dokument
  • eine PO-Datei, die die zu verwendende Übersetzung enthält.

Als Ausgabe produziert sie:

  • eine weitere PO-Datei, die aus der Auslösung der übersetzbaren Zeichenketten aus dem Eingabedokument entsteht
  • ein übersetztes Dokument mit der gleichen Struktur wie das der Eingabe, bei der aber alle übersetzbaren Zeichenketten mit den in der als Eingabe bereitgestellten PO-Datei gefundenen Übersetzungen ersetzt wurden.

Dies ist eine graphische Darstellung davon:

Eingabedokument --\                             /---> Ausgabedokument
                   \                           /        (übersetzt)
                    +-> parse()-Funktion -----+
                   /                           \
Eingabe-PO -------/                             \---> Ausgabe-PO
                                                      (herausgelöst)

Hier findet die gesamte Arbeit statt: das Auswerten der Eingabedokumente, die Erstellung der Ausgabe und das Herauslösen der übersetzbaren Zeichenketten. Das ist mit den in Abschnitt INTERNE FUNKTIONEN weiter unten vorgestellten angebotenen Funktionen recht einfach. Lesen Sie auch die ÜBERSICHT, in der ein Beispiel vorgestellt wird.

Diese Funktion wird von der unten beschriebenen process()-Funktion aufgerufen. Falls Sie sich aber entscheiden, die new()-Funktion zu verwenden und den Inhalt manuell zu Ihrem Dokument hinzuzufügen, müssen Sie diese Funktion selbst aufrufen.

Diese Funktion gibt den Header zurück und sollte dem erzeugten Dokument hinzugefügt werden, ordentlich zitiert, so dass sie in der Zielsprache ein Kommentar wird. Lesen Sie den Abschnitt Entwickler über Übersetzungen schulen, von po4a(7), um zu erfahren, wozu dies benutzt wird.

ÜBERSICHT

Das folgende Beispiel wertet eine Liste von Absätzen aus, die mit »<p>» beginnen. Der Einfachheit halber wird angenommen, dass das Dokument gut formatiert ist, d.h. dass »<p>«-Markierungen die einzigen vorhandene Markierungen sind und dass diese Markierung ganz am Anfang jedes Absatzes steht.

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>taucht nicht zum ersten Mal auf.
              # Fügen Sie die aktuelle Zeile erneut in die Eingabe,
              #  und fügen Sie den erstellten Absatz in die Ausgabe.
              $self->unshiftline($line,$lref);
              # Nun ist das Dokument ausgestaltet, es wird übersetzt:
              #   - Die führende Markierung entfernen
              $paragraph =~ s/^<p>//s;
              #   - die Ausgabe der führenden Markierung (unübersetzt) und des
                 #     Rests des Absatzes (unübersetzt) anstoßen
              $self->pushline(  "<p>"
                              . $self->translate($paragraph,$pararef)
                              );
              next PARAGRAPH;
          } else {
              # an den Absatz anhängen
              $paragraph .= $line;
              $pararef = $lref unless(length($pararef));
          }
          # Die Schleife neu initialisieren
          ($line,$lref)=$self->shiftline();
      }
      # Keine definierte Zeile erhalten? Ende der Eingabedatei
      return;
  }
}

Sobald Sie die Funktion zum Auswerten implementiert haben, können Sie Ihre Dokumentenklasse verwenden, die die öffentliche Schnittstelle benutzt, die im nächsten Abschnitt vorgestellt wird.

ÖFFENTLICHE SCHNITTSTELLE für Skripte, die Ihren Parser benutzen

Diese Funktion kann alles tun, was Sie mit einem Po4a-Dokument in einem Aufruf tun müssen. Ihre Argumente müssen als ein Hash gepackt sein. AKTIONEN:
liest alle PO-Dateien, die in po_in_name angegeben sind
liest alle Originaldokumente, die in file_in_name angegeben sind
wertet das Dokument aus
liest alle angegebenen Addenda und wendet sie an
schreibt das übersetzte Dokument in file_out_name (falls angegeben)
schreibt die extrahierte PO-Datei nach po_out_name (falls angegeben)

ARGUMENTE jenseits der durch new() akzeptierten (mit erwartetem Typ):

Liste der Dateinamen, bei denen das Eingabedokument gelesen werden sollte
im Eingabedokument benutzter Zeichensatz (falls er nicht angegeben wurde, wird UTF-8 benutzt).
Name der Datei, in den das Ausgabedokument geschrieben werden soll
im Ausgabedokument benutzter Zeichensatz (falls er nicht angegeben wurde, wird UTF-8 benutzt).
Liste der Dateinamen, von denen die Eingabe-PO-Dateien gelesen werden sollen; enthält die Übersetzung, die benutzt wird, um das Dokument zu übersetzen
Name der Datei, in den die Ausgabe-PO-Datei geschrieben werden soll; enthält die aus dem Eingabedokument extrahierten Zeichenketten.
Liste der Dateinamen, aus denen die Addenda gelesen werden
Zeichensatz für die Addenda
erstellt ein neues Po4a-Dokument; akzeptiert Optionen (in dem als Parameter übergebenen Hash):
setzt die Detailstufe
setzt die Debugging-Stufe
die Spalte, an der der Text im Ausgabedokument umgebrochen werden soll (standardmäßig 76)

Ein negativer Wert bedeutet, dass überhaupt kein Umbruch stattfindet.

Es akzeptiert auch die nächsten Optionen für zugrundeliegende PO-Dateien: porefs, copyright-holder, msgid-bugs-address, package-name, package-version, wrap-po.

fügt am Ende des existierenden Feldes "@{$self->{TT}{doc_in}}" ein weiteres Eingabedokument ein. Das Argument ist der zu lesende Dateiname. Falls ein zweiter Dateiname bereitgestellt wird, ist dies der in der Referenz zu verwendende Dateiname.

Das Feld "@{$self->{TT}{doc_in}}" hält die Eingabedokumentdaten als ein Feld von Zeichenketten mit abwechselnden Bedeutungen.
* Die Zeichenkette $textline hält jede Zeile der Eingabetextdaten.
* Die Zeichenkette "$filename:$linenum" hält ihren Ort und wird
»reference« genannt ("linenum" beginnt mit 1).

Bitte beachten Sie, dass es nichts auswertet. Sie sollten die Funktion parse() benutzen, wenn Sie damit fertig sind, Eingabedateien in das Dokument zu packen.

schreibt das übersetzte Dokument in den angegebene Dateinamen

Diese übersetzten Dokumentdaten werden bereitgestellt durch:
* "$self->docheader()" hält den Kopftext für die Erweiterung und
* "@{$self->{TT}{doc_out}}" hält jede Zeile des übersetzten Haupttextes in dem Feld.

fügt den Inhalt einer Datei (deren Name als Argument übergeben wird) der existierenden Eingabe-PO-Datei hinzu. Der alte Inhalt wird nicht verworfen.
schreibt die extrahierte PO-Datei in den angegebene Dateinamen
gibt einige Statistiken über bisher erledigte Übersetzungen zurück. Bitte beachten Sie, dass es sich nicht um die gleichen Statistiken handelt, die »msgfmt --statistics« ausgibt. Hier geht es um den aktuellen Gebrauch der PO-Datei, während Msgfmt den Status der Datei ausgibt. Es ist ein Wrapper für die Funktion Locale::Po4a::Po::stats_get, die auf die Eingabe-PO-Datei angewandt wird. Beispiel für die Benutzung:
[normale Benutzung des Po4a-Dokuments …]
($percent,$hit,$queries) = $document->stats();
print "Es wurden Übersetzungen für $percent\%  ($hit von $queries) der Zeichenketten gefunden.\n";

Weitere Informationen, was Addenda sind und wie Übersetzer sie schreiben sollten, finden Sie unter po4a(7). Um ein Addendum auf ein übersetztes Dokument anzuwenden, übergeben Sie einfach dieser Funktion seinen Dateinamen und Sie sind fertig. ;)

Diese Funktion gibt bei einem Fehler eine Ganzzahl ungleich Null zurück.

Es werden vier Funktionen bereitgestellt, um Eingaben zu erhalten und Ausgaben zurückzuliefern. Sie sind den Funktionen shift/unshift und push/pop von Perl sehr ähnlich.

* Perl shift liefert den ersten Feldeintrag zurück und entfernt ihn aus dem Feld.
* Perl unshift hängt einen Eintrag als ersten Feldeintrag vor das Feld.
* Perl pop liefert den letzten Feldeintrag zurück und entfernt ihn aus dem Feld.
* Perl push hängt einen Eintrag als letzten Feldeintrag an das Feld an.

Das erste Paar handelt von der Eingabe, während das Zweite von der Ausgabe handelt. Merkhilfe: In der Eingabe sind Sie an der ersten Zeile interessiert, was Shift ausgibt und in der Ausgabe möchten Sie Ihr Ergebnis an das Ende hinzufügen, wie dies Push tut.

Diese Funktion liefert die erste auszuwertende Zeile und ihre entsprechende Referenz (als Feld gepackt) aus dem Feld "@{$self->{TT}{doc_in}}" zurück und entfernt diese ersten zwei Feldeinträge. Hier wird die Referenz durch eine Zeichenkette "$filename:$linenum" bereitgestellt.
Schiebt die letzte geschobene Zeile des Eingabedokuments und seiner entsprechenden Referenz an den Kopf von "{$self->{TT}{doc_in}}" zurück.
Schiebt eine neue Zeile an das Ende von "{$self->{TT}{doc_out}}".
Holt die zuletzt geschobene Zeile vom Ende von "{$self->{TT}{doc_out}}".

Eine Funktion wird bereitgestellt, um den Text zu handhaben, der übersetzt werden soll.

vorgeschriebene Argumente:
  • eine zu übersetzende Zeichenkette
  • die Referenz dieser Zeichenkette (d.h. Position in der Eingabedatei)
  • der Typ der Zeichenkette (d.h. die inhaltliche Beschreibung ihrer strukturellen Rolle; benutzt in Locale::Po4a::Po::gettextization(); siehe auch po4a(7), Abschnitt Gettextisierung: Wie funktioniert das?)

Diese Funktion kann außerdem einige zusätzliche Argumente entgegennehmen. Sie müssen als Hash organisiert sein. Zum Beispiel:

$self->translate("string","ref","type",
                 'wrap' => 1);
logische Variable, ob die Leerzeichen in der Zeichenkette als unwichtig betrachtet werden können. Falls ja, wird die Funktion die Zeichenkette in eine kanonische Form bringen, bevor nach einer Übersetzungen gesucht oder diese extrahiert wird und ein Zeilenumbruch wird durchgeführt.
die Spalte an der umgebrochen werden soll (standardmäßig der Wert von wrapcol, der während der Erstellung des TransTractor festgelegt wurde oder 76).

Der negative Wert wird von der Vorgabe abgezogen.

ein zusätzlicher Kommentar, der zum Eintrag hinzugefügt wird

Aktionen:

  • schiebt die Zeichenkette, die Referenz und den Typ nach po_out
  • gibt die Übersetzung der Zeichenkette (wie sie in po_in gefunden wurde) zurück, so dass der Parser das doc_out bauen kann
  • handhabt die Zeichensätze, um den Zeichensatz der Zeichenkette umzuwandeln, bevor sie an po_out gesandt werden und bevor die Übersetzungen zurückgegeben werden

kehrt zurück, falls die Option »verbose« während der Erstellung von TransTractor übergeben wurde
kehrt zurück, falls die Option »debug« während der Erstellung von TransTractor übergeben wurde
Diese Funktion liefert den Zeichensatz zurück, der als Hauptzeichensatz bereitgestellt wurde
Diese Funktion wird den Zeichensatz zurückgeben, der im ausgegebenen Dokument benutzt werden sollte (üblicherweise nützlich, um den ermittelten Zeichensatz des Eingabedokuments zu ersetzen, wo er gefunden wurde).

Sie wird den auf der Befehlszeile angegebenen Zeichensatz verwenden. Falls er nicht angegeben wurde, wird sie den Zeichensatz der Eingabe-PO-Datei benutzen und falls die Eingabe-PO-Datei die Vorgabe »CHARSET« hat, wird sie den Zeichensatz des Eingabedokuments zurückgeben, so dass die Kodierung durchgeführt wird.

Ein Mangel des aktuellen Transtractors ist, dass er keine übersetzten Dokumente handhaben kann, die alle Sprachen enthalten, wie Debconf-Schablonen oder Desktop-Dateien.

Um dieses Problem anzugehen, sind nur bestimmte Schnittstellenänderungen notwendig:

  • einen Hash in po_in_name nehmen (eine Liste pro Sprache)
  • ein zu übersetzendes Argument hinzufügen, um die Zielsprache anzugeben
  • ein Funktion pushline_all erstellen, die pushline ihres Inhalts für alle Sprachen unter Benutzung einer kartenähnlichen Syntax ausführen würde:
    $self->pushline_all({ "Description[".$langcode."]=".
                          $self->translate($line,$ref,$langcode)
                        });
    

Es wird sich zeigen, ob das ausreicht. ;)

Denis Barbier <barbier@linuxfr.org>
Martin Quinson (mquinson#debian.org)
Jordi Vilalta <jvprat@gmail.com>
2024-06-08 perl v5.38.2