Revision 5828bfe5
Von Moritz Bunkus vor etwa 15 Jahren hinzugefügt
| locale/de/locales.pl | ||
|---|---|---|
| 558 | 558 |
$plugins{needed}->{$plugin} = 1 if (first { $_ eq $plugin } qw(HTML LxERP JavaScript MultiColumnIterator));
|
| 559 | 559 |
} |
| 560 | 560 |
|
| 561 |
while ($line =~ m/\[\% # Template-Start-Tag |
|
| 562 |
[\-~#] # Whitespace-Unterdr?ckung |
|
| 563 |
\s* # Optional beliebig viele Whitespace |
|
| 564 |
[\'\"] # Anfang des zu ?bersetzenden Strings |
|
| 565 |
(.*?) # Der zu ?bersetzende String |
|
| 566 |
[\'\"] # Ende des zu ?bersetzenden Strings |
|
| 567 |
\s*\|\s* # Pipe-Zeichen mit optionalen Whitespace davor und danach |
|
| 568 |
\$T8 # Filteraufruf |
|
| 569 |
.*? # Optionale Argumente f?r den Filter und Whitespaces |
|
| 570 |
[\-~#] # Whitespace-Unterdr?ckung |
|
| 571 |
\%\] # Template-Ende-Tag |
|
| 572 |
/ix) {
|
|
| 573 |
print "Found filter >>>$1<<<\n"; |
|
| 574 |
$cached{$_[0]}{all}{$1} = 1;
|
|
| 575 |
$cached{$_[0]}{html}{$1} = 1;
|
|
| 576 |
$plugins{needed}->{T8} = 1;
|
|
| 577 |
substr $line, $-[1], $+[0] - $-[0], ''; |
|
| 578 |
} |
|
| 579 |
|
|
| 561 | 580 |
while ("" ne $line) {
|
| 562 | 581 |
if (!$copying) {
|
| 563 | 582 |
if ($line =~ m|<translate>|i) {
|
| ... | ... | |
| 608 | 627 |
} |
| 609 | 628 |
|
| 610 | 629 |
# copy back into global arrays |
| 611 |
map { $alllocales{$_} = 1 } keys %{$cached{$_[0]}{all}};
|
|
| 612 |
map { $htmllocales{$_} = 1 } keys %{$cached{$_[0]}{html}};
|
|
| 613 |
map { $submit{$_} = 1 } keys %{$cached{$_[0]}{submit}};
|
|
| 630 |
map { $alllocales{$_} = 1 } keys %{$cached{$_[0]}{all}};
|
|
| 631 |
map { $htmllocale{$_} = 1 } keys %{$cached{$_[0]}{html}};
|
|
| 632 |
map { $submit{$_} = 1 } keys %{$cached{$_[0]}{submit}};
|
|
| 614 | 633 |
} |
| 615 | 634 |
|
| 616 | 635 |
sub converthtmlfile {
|
Auch abrufbar als: Unified diff
Verwendung des kommenden T8-Filters zur Übersetzung erkennen.