forked from github/kensanata.oddmuse
0904f168d1
Changes to oddtrans make sure that lines starting with # are comments and will be stripped when the translation file is read. When writing new translation files, comments are added to indicate which files are being processed right now. This will help translators figure out where the texts originated from. Note that every key appears only once, so translations will be missing in the section for later files if they appeared in earlier sections. Recreated new-utf8.pl in order to illustrate the new format.
106 lines
2.5 KiB
Perl
Executable File
106 lines
2.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# Based on umtrans.pl version 1.0 (April 8, 2001) by Clifford Adams.
|
|
# Extracts translation strings from wiki script and extensions.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
binmode(STDOUT, ":encoding(UTF-8)");
|
|
|
|
my $help = q{
|
|
NAME
|
|
oddtrans - complement translation tables for Oddmuse
|
|
|
|
SYNOPSIS
|
|
oddtrans [OPTIONS]... [FILE]...
|
|
|
|
DESCRIPTION
|
|
|
|
Read all the calls to T(), Ts(), and Tss() from all FILEs, and print
|
|
them on standard output, followed by their translation (usually the
|
|
empty string unless you use -l to load a library).
|
|
|
|
-l
|
|
load a library from a previous run; you can use multiple -l
|
|
|
|
EXAMPLES
|
|
|
|
oddtrans -l german-utf8.pl wiki.pl modules/*.pl > new-german-utf8.pl
|
|
|
|
};
|
|
|
|
our %Translate = ();
|
|
|
|
my $arg = shift;
|
|
while ($arg =~ /^-l/) {
|
|
my $file;
|
|
$file = substr($arg, 3) if length($arg) > 2;
|
|
$file = shift unless $file;
|
|
die $help unless -f $file;
|
|
my %backup = %Translate;
|
|
header_info_extract($file); # keep the header information of the translation files
|
|
do $file or die "Cannot do $file";
|
|
foreach my $key (keys %Translate) {
|
|
$backup{$key} = $Translate{$key};
|
|
}
|
|
%Translate = %backup;
|
|
$arg = shift;
|
|
}
|
|
unshift(@ARGV,$arg); # shove the last one back because it is not -l!
|
|
|
|
print "our \%Translate = grep(!/^#/, split(/\\n/,<<'END_OF_TRANSLATION'));\n";
|
|
undef $/; # slurp
|
|
foreach my $file (@ARGV) {
|
|
open(my $fh, "<:encoding(UTF-8)", $file) or die "Cannot open $file: $!";
|
|
$_ = <$fh>;
|
|
# join split strings
|
|
s/'\s*\.\s*'//g;
|
|
s/"\s*\.\s*"//g;
|
|
# extract calls to T, Ts and Tss
|
|
while(/Ts?s?\(\'([^']+)/g) { trans($file, $1); }
|
|
while(/Ts?s?\(\"([^"]+)/g) { trans($file, $1); }
|
|
}
|
|
|
|
print "END_OF_TRANSLATION\n";
|
|
|
|
my %seen = ();
|
|
my %read = ();
|
|
|
|
sub trans {
|
|
my ($file, $string) = @_;
|
|
my ($result);
|
|
$result = '';
|
|
$result = $Translate{$string} if (defined($Translate{$string}));
|
|
return ' ' if ($seen{$string});
|
|
marker($file) unless $read{$file};
|
|
$seen{$string} = 1;
|
|
print $string . "\n" . $result . "\n";
|
|
return ' ';
|
|
}
|
|
|
|
sub marker {
|
|
my $file = shift;
|
|
$read{$file} = 1;
|
|
# place marker
|
|
print "#" x 80, "\n";
|
|
print "# $file\n";
|
|
print "#" x 80, "\n";
|
|
}
|
|
my $header = 0;
|
|
|
|
sub header_info_extract{
|
|
return if $header++;
|
|
my $file = shift;
|
|
open(FILE, "<:encoding(utf8)", $file) or die "Can't open $file because: $!";
|
|
foreach (<FILE>) {
|
|
last if (/^our %Translate = /);
|
|
print;
|
|
}
|
|
close FILE;
|
|
}
|
|
|
|
sub AddModuleDescription {
|
|
# Do nothin; this function is just there such that the translation
|
|
# files can be run.
|
|
}
|