mirrors/recycled-ni-neutrino
1
0
Fork 0
mirror of https://github.com/tuxbox-fork-migrations/recycled-ni-neutrino.git synced 2025-08-26 23:13:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

locale: fix "make work-locals"

Browse Source 
* let the makefile work with out-of-tree builds to some extent
* rework the create-locals-work skript to be more perl-ish, use
 warnings and strict to see bugs easily.


Origin commit data
------------------
Commit: ea19964ec3
Author: Stefan Seyfried <seife@tuxbox-git.slipkontur.de>
Date: 2016-01-03 (Sun, 03 Jan 2016)

Origin message was:
------------------
locale: fix "make work-locals"

* let the makefile work with out-of-tree builds to some extent
* rework the create-locals-work skript to be more perl-ish, use
 warnings and strict to see bugs easily.
This commit is contained in:
Stefan Seyfried
2016-01-03 16:01:12 +01:00
parent 69a607474f
commit 7f771fd74d
2 changed files with 35 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
data/locale/Makefile.am
View File

@@ -38,7 +38,7 @@ sort-locals:
work-locals: $(master.locale)
for locale in $(locale); do \
$(top_srcdir)/data/locale/helpers/create-locals-work $${locale}; \
( cd $(top_srcdir)/data/locale; helpers/create-locals-work $${locale}; ); \
done
ordercheck: $(master.locale)

58
data/locale/helpers/create-locals-work
View File

@@ -6,50 +6,60 @@
# to, after manual editing, replace the outdated locale file.
# Written by Barf on 2005-12-10.
# reorganized by Stefan Seyfried 2016-01-03, following changes:
# * use strict, use warnings to find errors easier
# * make it work with the above pragmas
# * tolerance against empty locales in english.locale
$masterfilename = "english.locale";
use warnings;
use strict;
my $masterfilename = "english.locale";
$#ARGV == 0 || die("Usage: create-locals-work file.locale.");
$no_errors = 0;
$last_was_ok = 1;
$localefilename = @ARGV[0];
$outfilename = $localefilename . "-work";
my $no_errors = 0;
my $last_was_ok = 1;
my $localefilename = $ARGV[0];
my $outfilename = $localefilename . "-work";
open(masterfile, $masterfilename) || die("Could not open master file");
open(localefile, $localefilename) || die("Could not open locale file");
open(outfile, ">" . $outfilename) || die("Could not open output file");
open(MASTER, $masterfilename) || die("Could not open master file $masterfilename");
open(LOCALE, $localefilename) || die("Could not open locale file $localefilename");
open(OUT, ">" . $outfilename) || die("Could not open output file $outfilename");
%master = {};
%locale = {};
my %master;
my %locale;
while (<masterfile>) {
my $line;
while ($line = <MASTER>) {
# master hash
$line = $_;
($key) = /([^ ]+)/;
($junk, $text) = /([^ ]+)[ ]+([^\n]+)/;
$master{$key} = $text;
chomp $line;
$line =~ s/^\s+//; # strip whitespace from start of line
my ($key, $text) = split /\s+/, $line, 2;
$master{$key} = $text ? $text : "";
}
close(MASTER);
while (<localefile>) {
while ($line = <LOCALE>) {
# locale hash
$line = $_;
($key) = /([^ ]+)/;
($junk, $text) = /([^ ]+)[ ]+([^\n]+)/;
$locale{$key} = $text;
chomp $line;
$line =~ s/^\s+//;
my ($key, $text) = split /\s+/, $line, 2;
$locale{$key} = $text ? $text : "";
}
close(LOCALE);
foreach $term (sort keys %master) {
foreach my $term (sort keys %master) {
if (exists $locale{$term}) {
print outfile $term, " ", $locale{$term}, "\n";
print OUT $term." ".$locale{$term}."\n";
} else {
# not found
$no_errors++;
print outfile $term, " TRANSLATE ", $master{$term}, "\n";
print OUT $term." TRANSLATE ".$master{$term}."\n";
}
}
if ($no_errors == 0) {}
if ($no_errors == 0) {
unlink($outfilename);
} else {
print "There were ", $no_errors, " error(s) in ", $localefilename, ".\n";