summaryrefslogtreecommitdiff
path: root/buildutil
diff options
context:
space:
mode:
authorVille Skyttä <ville.skytta@iki.fi>2011-09-14 21:06:43 +0300
committerChristian Wieninger <cwieninger@gmx.de>2011-09-19 19:02:47 +0200
commit65e53ce1a6a8724f43de3f5e05840bbe45d955c2 (patch)
tree780f7ebfae8b40b8ba1bfc7496d5bad40c0f9d5b /buildutil
parent0aacca600906ef279d259e2d86e4539328b6f5d6 (diff)
downloadvdr-plugin-epgsearch-65e53ce1a6a8724f43de3f5e05840bbe45d955c2.tar.gz
vdr-plugin-epgsearch-65e53ce1a6a8724f43de3f5e05840bbe45d955c2.tar.bz2
Remove obsolete VDR < 1.5.7 translation support.
Diffstat (limited to 'buildutil')
-rwxr-xr-xbuildutil/pot2i18n.pl157
1 files changed, 0 insertions, 157 deletions
diff --git a/buildutil/pot2i18n.pl b/buildutil/pot2i18n.pl
deleted file mode 100755
index 600879b..0000000
--- a/buildutil/pot2i18n.pl
+++ /dev/null
@@ -1,157 +0,0 @@
-#!/usr/bin/perl
-#
-# File: pot2i18n.pl - Convert plugin pot file into i18n.c-format
-# Author: Dieter Hametner
-# Version: 0.1
-#
-# based on po2i18n.pl version 0.1 from Udo Richter
-#
-# See the po2i18n/README file for copyright information and how to
-# reach the original author. Also general use is described there.
-#
-# This version uses the CPAN module Locale::PO to read the .pot and .po files
-# which ensures, that these files are read correctly.
-#
-# The usage of pot2i18n.pl differs from po2i18n.pl that it requires as first
-# argument the path to the plugins .pot file. There it then looks also for
-# the translated .po files which are used to create the result.
-# This version does not sort the msgids lexicaly (in contrast to po2i18n.pl)
-
-use strict;
-use warnings;
-
-use Locale::PO;
-use File::Basename;
-
-my @LANGS = (
- "en_US",
- "de_DE",
- "sl_SI",
- "it_IT",
- "nl_NL",
- "pt_PT",
- "fr_FR",
- "nn_NO",
- "fi_FI",
- "pl_PL",
- "es_ES",
- "el_GR",
- "sv_SE",
- "ro_RO",
- "hu_HU",
- "ca_ES",
- "ru_RU",
- "hr_HR",
- "et_EE",
- "da_DK",
- "cs_CZ",
- "tr_TR"
- );
-
-my %VERS = (
- "en_US" => 10200,
- "de_DE" => 10200,
- "sl_SI" => 10200,
- "it_IT" => 10200,
- "nl_NL" => 10200,
- "pt_PT" => 10200,
- "fr_FR" => 10200,
- "nn_NO" => 10200,
- "fi_FI" => 10200,
- "pl_PL" => 10200,
- "es_ES" => 10200,
- "el_GR" => 10200,
- "sv_SE" => 10200,
- "ro_RO" => 10200,
- "hu_HU" => 10200,
- "ca_ES" => 10200,
- "ru_RU" => 10302,
- "hr_HR" => 10307,
- "et_EE" => 10313,
- "da_DK" => 10316,
- "cs_CZ" => 10342,
- "tr_TR" => 10502
- );
-
-die "Missing .pot file argument" unless $#ARGV >= 0;
-
-my $potfile = $ARGV[0];
-my $podir = dirname($potfile);
-
-my $potRef = Locale::PO->load_file_asarray($potfile);
-shift;
-
-my %translations;
-
-foreach my $lang (@LANGS) {
- $translations{$lang} = Locale::PO->load_file_ashash("$podir/$lang.po");
-}
-
-# debugging code: (may be removed)
-#for my $po (@{$potRef}) {
-# my $msgid = $po->msgid;
-#
-# print "UNTRANSLATED: ", $msgid, "\n";
-# next if $msgid eq "\"\"";
-# foreach my $lang (@LANGS) {
-# my $lhref = $translations{$lang};
-# my $lpo = ${$lhref}{$msgid};
-# $lpo = $po if !defined $lpo;
-#
-# my $msg = $lpo->msgstr;
-# $msg = $lpo->msgid if !defined $msg;
-# $msg = $msgid if ($lang eq "en_US");
-# print $lang, ": ", $msg, "\n";
-# }
-# print "\n";
-#}
-#
-#exit;
-
-my $silent = 0;
-
-while (<>) {
- my $line = $_;
-
- if ($line =~ /^\/\/ START I18N/) {
- print "// START I18N - automatically generated by pot2i18n.pl\n";
- foreach my $po (@{$potRef}) {
- my $msgid = $po->msgid;
- next if $msgid eq "\"\"";
-
- my $head = " { ";
- my $endif = "";
- my $versnum = 10200;
-
- for my $lang (@LANGS) {
- if ($VERS{$lang} ne $versnum) {
- $versnum = $VERS{$lang};
- print $endif;
- print "#if VDRVERSNUM >= $versnum\n";
- $endif = "#endif\n";
- }
-
- my $lhref = $translations{$lang};
- my $lpo = ${$lhref}{$msgid};
- $lpo = $po if !defined $lpo;
-
- my $msgstr = $lpo->msgstr;
- $msgstr = $lpo->msgid if !defined $msgstr;
- $msgstr = $msgid if ($lang eq "en_US");
-
- print "$head$msgstr,\n";
- $head = " ";
- }
- print $endif;
- print " },\n";
- }
- $silent = 1;
- }
-
- if (!$silent) { print $line; }
-
- if ($line =~ /^\/\/ END I18N/) {
- print "// END I18N - automatically generated by pot2i18n.pl\n";
- $silent = 0;
- }
-}