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

locale: rework helpers

Browse Source 
Origin commit data
------------------
Branch: ni/coolstream
Commit: d69e119903
Author: vanhofen <vanhofen@gmx.de>
Date: 2022-12-03 (Sat, 03 Dec 2022)

Origin message was:
------------------
- locale: rework helpers

------------------
No further description and justification available within origin commit message!

------------------
This commit was generated by Migit
This commit is contained in:
vanhofen
2022-12-03 00:18:09 +01:00
parent 6ddfc9ed42
commit 799be18190
7 changed files with 97 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
data/locale/helpers/create-locale-work Executable file
View File

@@ -0,0 +1,75 @@
#! /usr/bin/perl
# This proggie takes a (possibly outdated) locale file as its (only)
# argument, and creates a new version, with `-work` appended. The thus
# created tile contains all keys of the master file, and is intended
# 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 deutsch.locale
use warnings;
use strict;
my $masterfilename = "deutsch.locale";
$#ARGV == 0 || die("Usage: create-locals-work file.locale");
my $no_errors = 0;
my $last_was_ok = 1;
my $localefilename = $ARGV[0];
my $outfilename = $localefilename . "-work";
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");
my %master;
my %locale;
my $line;
while ($line = <MASTER>)
{
# master hash
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 ($line = <LOCALE>)
{
# locale hash
chomp $line;
$line =~ s/^\s+//;
my ($key, $text) = split /\s+/, $line, 2;
$locale{$key} = $text ? $text : "";
}
close(LOCALE);
foreach my $term (sort keys %master)
{
if (exists $locale{$term})
{
print OUT $term." ".$locale{$term}."\n";
}
else
{
# not found
$no_errors++;
print OUT $term." (((T))) ".$master{$term}."\n";
}
}
if ($no_errors == 0)
{
unlink($outfilename);
}
else
{
print "There were ", $no_errors, " error(s) in ", $localefilename, ".\n";
}