From 80dd37201b22e9a04cdd29fee0d9096a5a0e2120 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@triptico.com>
Date: Sun, 14 Mar 2010 15:19:50 +0100
Subject: [PATCH] Start of implementation of -l in art5.

---
 art5 | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/art5 b/art5
index bed7034..793f814 100755
--- a/art5
+++ b/art5
@@ -14,6 +14,9 @@ while ($v = shift(@ARGV)) {
 	elsif ($v eq '-I') {
 		push(@path, shift(@ARGV));
 	}
+	elsif ($v eq '-l') {
+		update_lang();
+	}
 	else {
 		# script name
 	}
@@ -37,3 +40,50 @@ else {
 }
 
 exit 0;
+
+sub update_lang
+# updates all language files
+{
+	my @lang = glob("lang_*");
+
+	if (scalar(@lang) == 0) {
+		print "Error: no lang_* files.\n";
+		exit 1;
+	}
+
+	# read now all templates in the current directory
+	# searching for translateable strings
+	my %h = ();
+
+	foreach my $t (glob("*")) {
+		# skip language files themselves
+		if ($t =~ /lang_.*$/) {
+			next;
+		}
+
+		# read template
+		if (open F, $t) {
+			my $l;
+
+			while ($l = <F>) {
+				my @s = ($l =~ /@\"([^\"]+)"/g);
+
+				foreach my $s (@s) {
+					$h{$s}++;
+				}
+			}
+
+			close F;
+		}
+	}
+
+	# now all keys in the templates must be
+	# merged into each language file
+	# ...
+
+	foreach my $k (keys(%h)) {
+		print $k, "\n";
+	}
+
+	exit 0;
+}
-- 
2.11.4.GIT