[Slim-Checkins] r12547 - /trunk/tools/find_translations_todo.pl

[bklaas at svn.slimdevices.com]

Author: bklaas
Date: Mon Aug 13 11:05:46 2007
New Revision: 12547

URL: http://svn.slimdevices.com?rev=12547&view=rev
Log:
Script to find all *strings.txt files and determine strings still needed for translation.

Written for Jive admin, but this could potentially be used anywhere where strings.txt files are used.

Added:
    trunk/tools/find_translations_todo.pl   (with props)

Added: trunk/tools/find_translations_todo.pl
URL: http://svn.slimdevices.com/trunk/tools/find_translations_todo.pl?rev=12547&view=auto
==============================================================================
--- trunk/tools/find_translations_todo.pl (added)
+++ trunk/tools/find_translations_todo.pl Mon Aug 13 11:05:46 2007
@@ -1,0 +1,84 @@
+#!/usr/bin/perl
+
+## find_translations_todo.pl
+#
+# a. searches through any directories given on the command line (defaults to .)
+# b. finds all occurrences of files that end in strings.txt (thus, also picks up global_strings.txt)
+# c. reads through each strings file and determines whether all supported locales (given by @supported_langs variable) have been translated
+# d. outputs to STDOUT all strings needed for translation and what locales currently exist for it
+#
+## first version: bklaas 08.07
+
+use strict;
+use File::Find;
+
+my @supported_langs = qw/ EN DE ES IT FR NL /;
+my @sorted_supports = sort @supported_langs;
+my %supported_langs = map { $_ } @supported_langs;
+
+my @dirs = @ARGV ;
+ at dirs = ( '.' ) unless $ARGV[0];
+
+my $strings_files = get_strings_files();
+
+my @strings_to_translate;
+for my $string_file (@$strings_files) {
+	my $slurp = 0;
+	my %got_it; my @strings;
+	open(STRINGS,"<$string_file") or die "$!";
+	while(<STRINGS>) {
+		chomp;
+		s/[\t\s]+$//;
+		next unless /^[\t\s]*[A-Z0-9]/;
+		if (/^[A-Z0-9]/) {
+			# first deal with the last slurp
+			if ($slurp) {
+				compare_hashes(\%got_it, $slurp, \@strings);
+			}
+			$slurp = $_;
+			%got_it = (); @strings = ();
+			next;
+		}
+		if ($slurp && /^[\t\s]+[A-Z][A-Z]/) {
+			s/^[\t\s]+//;
+			my %data;
+			($data{'lang'}, $data{'string'}) = split /\t/;	
+			$got_it{$data{'lang'}}++;
+			push @strings, \%data;
+		}
+	}
+	if ($slurp) {
+		compare_hashes(\%got_it, $slurp, \@strings);
+	}
+	close(STRINGS);
+}
+
+sub compare_hashes {
+	my ($seen, $string, $strings) = @_;
+	my $missing_translations = missing_translations($seen);
+	if ($missing_translations) {
+		print "$string\n";
+		for my $line (@$strings) {
+			print "\t$line->{'lang'}\t$line->{'string'}\n";
+		}
+		print "\n";
+	}
+}
+
+sub missing_translations {
+	my $compare = shift;
+	my $missing = 0;
+	for (keys %supported_langs) {
+		$missing++ unless exists $compare->{$_};
+	}
+	return $missing;
+}
+
+sub get_strings_files {
+	my @return;
+	find sub {
+		my $file = $File::Find::name;
+		push @return, $file if $file =~ /strings\.txt$/;
+	}, @dirs;
+	return \@return;
+}

Propchange: trunk/tools/find_translations_todo.pl
------------------------------------------------------------------------------
    svn:executable = *