Difuse/luci
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

build: preserve original .po header when updating from templates to reduce diff noise

Browse source 
Signed-off-by: Jo-Philipp Wich <jow@openwrt.org>
This commit is contained in:
Jo-Philipp Wich 2014-06-13 09:40:43 +00:00
parent d733688ce5
commit 91ac51d693
1 changed files with 33 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
build/i18n-update.pl
View file

@ -5,7 +5,7 @@
my $source = shift @ARGV;
my $pattern = shift @ARGV || '*.po';
sub fixup_header_order
sub read_header
{
my $file = shift || return;
local $/;
@ -14,7 +14,34 @@ sub fixup_header_order
my $data = readline P;
close P;
$data =~ s/("Language-Team: .*?\\n"\n)(.+?)("Language: .*?\\n"\n)/$1$3$2/s;
$data =~ /
^ (
msgid \s "" \n
msgstr \s "" \n
(?: " [^\n]+ " \n )+
\n )
/mx;
return $1;
}
sub write_header
{
my $file = shift || return;
my $head = shift || return;
local $/;
open P, "< $file" || die "open(): $!";
my $data = readline P;
close P;
$data =~ s/
^ (
msgid \s "" \n
msgstr \s "" \n
(?: " [^\n]+ " \n )+
\n )
/$head/mx;
open P, "> $file" || die "open(): $!";
print P $data;
@ -29,9 +56,12 @@ if( open F, "find $source -type f -name '$pattern' |" )
if( -f "$source/templates/$basename.pot" )
{
my $head = read_header($file);
printf "Updating %-40s", $file;
system("msgmerge", "-U", "-N", $file, "$source/templates/$basename.pot");
fixup_header_order($file);
write_header($file, $head);
}
}