Revision 05c6840d
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| scripts/locales.pl | ||
|---|---|---|
| 6 | 6 |
# this version of locles processes not only all required .pl files |
| 7 | 7 |
# but also all parse_html_templated files. |
| 8 | 8 |
|
| 9 |
use utf8; |
|
| 9 | 10 |
use strict; |
| 10 | 11 |
|
| 11 | 12 |
use Data::Dumper; |
| ... | ... | |
| 479 | 480 |
|
| 480 | 481 |
while ($line =~ m/(?: # Start von Variante 1: LxERP.t8('...'); ohne darumliegende [% ... %]-Tags
|
| 481 | 482 |
(LxERP\.t8)\( # LxERP.t8( ::Parameter $1:: |
| 482 |
([\'\"]) # Anfang des zu ?bersetzenden Strings ::Parameter $2::
|
|
| 483 |
(.*?) # Der zu ?bersetzende String ::Parameter $3::
|
|
| 484 |
(?<!\\)\2 # Ende des zu ?bersetzenden Strings
|
|
| 483 |
([\'\"]) # Anfang des zu übersetzenden Strings ::Parameter $2::
|
|
| 484 |
(.*?) # Der zu übersetzende String ::Parameter $3::
|
|
| 485 |
(?<!\\)\2 # Ende des zu übersetzenden Strings
|
|
| 485 | 486 |
| # Start von Variante 2: [% '...' | $T8 %] |
| 486 | 487 |
\[\% # Template-Start-Tag |
| 487 |
[\-~#]? # Whitespace-Unterdr?ckung
|
|
| 488 |
[\-~#]? # Whitespace-Unterdrückung
|
|
| 488 | 489 |
\s* # Optional beliebig viele Whitespace |
| 489 |
([\'\"]) # Anfang des zu ?bersetzenden Strings ::Parameter $4::
|
|
| 490 |
(.*?) # Der zu ?bersetzende String ::Parameter $5::
|
|
| 491 |
(?<!\\)\4 # Ende des zu ?bersetzenden Strings
|
|
| 490 |
([\'\"]) # Anfang des zu übersetzenden Strings ::Parameter $4::
|
|
| 491 |
(.*?) # Der zu übersetzende String ::Parameter $5::
|
|
| 492 |
(?<!\\)\4 # Ende des zu übersetzenden Strings
|
|
| 492 | 493 |
\s*\|\s* # Pipe-Zeichen mit optionalen Whitespace davor und danach |
| 493 | 494 |
(\$T8) # Filteraufruf ::Parameter $6:: |
| 494 |
.*? # Optionale Argumente f?r den Filter
|
|
| 495 |
.*? # Optionale Argumente für den Filter
|
|
| 495 | 496 |
\s* # Whitespaces |
| 496 |
[\-~#]? # Whitespace-Unterdr?ckung
|
|
| 497 |
[\-~#]? # Whitespace-Unterdrückung
|
|
| 497 | 498 |
\%\] # Template-Ende-Tag |
| 498 | 499 |
) |
| 499 | 500 |
/ix) {
|
| ... | ... | |
| 511 | 512 |
} |
| 512 | 513 |
|
| 513 | 514 |
while ($line =~ m/\[\% # Template-Start-Tag |
| 514 |
[\-~#]? # Whitespace-Unterdr?ckung
|
|
| 515 |
[\-~#]? # Whitespace-Unterdrückung
|
|
| 515 | 516 |
\s* # Optional beliebig viele Whitespace |
| 516 | 517 |
(?: # Die erkannten Template-Direktiven |
| 517 | 518 |
PROCESS |
| ... | ... | |
| 601 | 602 |
|
| 602 | 603 |
open my $fh, '>', $file or die "$! : $file"; |
| 603 | 604 |
|
| 605 |
$charset =~ s/\r?\n//g; |
|
| 604 | 606 |
my $emacs_charset = lc $charset; |
| 605 | 607 |
|
| 606 | 608 |
print $fh "#!/usr/bin/perl\n# -*- coding: $emacs_charset; -*-\n# vim: fenc=$charset\n\n"; |
Auch abrufbar als: Unified diff
Dateiencodings auf UTF-8 geändert
Fix für Bug 1375.