len0rd/rockbox
1
0
Fork 1
mirror of https://github.com/Rockbox/rockbox.git synced 2025-11-17 09:02:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Keep comments other than the special ### comments.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5735 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Jens Arnold 2005-02-01 19:00:37 +00:00
parent 0457a578b5
commit 2ae6009448
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tools/uplang
View file

@ -37,13 +37,24 @@ while(<ENG>) {
close(ENG);
undef %set;
my $cblock = 1;
open(NEW, "<$ARGV[1]");
while(<NEW>) {
$_ =~ s/\r//g;
if($_ =~ /^ *\#/) {
# comment
if($_ !~ /^ *\#\#\#/) {
# no special ### comment -> keep it
if(!$cblock) {
print "\n";
$cblock = 1;
}
print $_;
}
next;
}
$_ =~ s/\r//g;
$cblock = 0;
if($_ =~ /^ *([a-z]+): *(.*)/) {
($var, $value) = ($1, $2);
@ -54,7 +65,7 @@ while(<NEW>) {
# the last one for a single phrase
if(!$ids{$set{'id'}}) {
print "### ".$set{'id'}." was not found in the english file!\n";
print "\n### ".$set{'id'}." was not found in the english file!\n";
next;
}