diff options
| author | Nvinside <Nvinside@eced67a3-f377-a0ae-92ae-d6de1850b05a> | 2010-09-21 19:24:11 +0000 |
|---|---|---|
| committer | Nvinside <Nvinside@eced67a3-f377-a0ae-92ae-d6de1850b05a> | 2010-09-21 19:24:11 +0000 |
| commit | 6dc71cda3ff70b007446400df1198a1a0c68c53f (patch) | |
| tree | 2326f3286f8f1f9d5c6cc8e90a7e12214811acd2 /trans.pl | |
| parent | 171d64d347164d1828f8050e7991e6179a5bad91 (diff) | |
! added trans.pl for backward compatibility reason
git-svn-id: http://mirotr.googlecode.com/svn/trunk@31 eced67a3-f377-a0ae-92ae-d6de1850b05a
Diffstat (limited to 'trans.pl')
| -rw-r--r-- | trans.pl | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/trans.pl b/trans.pl new file mode 100644 index 0000000..5bd15f5 --- /dev/null +++ b/trans.pl @@ -0,0 +1,64 @@ +#!/usr/bin/perl
+#
+# Script generating new translation from template, using old translation
+#
+# Miranda IM: the free IM client for Microsoft* Windows*
+#
+# Copyright 2000-2008 Miranda ICQ/IM project,
+# all portions of this codebase are copyrighted to the people
+# listed in contributors.txt.
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+use POSIX;
+
+if(@ARGV < 2)
+{
+ print "trans <to translate> <old translation> [<next old translation> ...]\n";
+ exit;
+}
+
+my $key;
+my %trans;
+my $totrans = shift @ARGV;
+while(@ARGV)
+{
+ my $oldtrans = shift @ARGV;
+ open OT, "<$oldtrans" or die "Error: Cannot open translation";
+ while(<OT>)
+ {
+ chop;
+ if(m/^\[(.*)\]/)
+ { $key = $1; next; }
+ elsif($key and !$trans{$key} and !m/^;/)
+ { $trans{$key} = $_; $key = 0; }
+ }
+}
+
+open TT, "<$totrans" or die "Error: Cannot open file to translate";
+while(<TT>)
+{
+ if(m/^;\[(.*)\]/ and $trans{$1})
+ {
+ print "[$1]\n";
+ print $trans{$1};
+ print "\n";
+ }
+ else
+ { print; }
+}
+
+close TT;
+close OT;
|