From 5193631c04142200494761440eda67514c11d649 Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jow@openwrt.org>
Date: Sun, 17 May 2009 19:39:32 +0000
Subject: [PATCH] build: add script to extract i18n tags from sources and
 generate *.po snippets

---
 build/i18n-scan.pl | 114 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 114 insertions(+)
 create mode 100755 build/i18n-scan.pl

diff --git a/build/i18n-scan.pl b/build/i18n-scan.pl
new file mode 100755
index 000000000..102ae5f7a
--- /dev/null
+++ b/build/i18n-scan.pl
@@ -0,0 +1,114 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Text::Balanced qw(extract_codeblock);
+
+@ARGV == 1 || die "Usage: $0 <source direcory>\n";
+
+
+sub _parse
+{
+	my ( $code ) = @_;
+	my ( $k, $v );
+	
+	if( $code =~ s/^<%:-?\s*(.+)\s*%>/$1/s )
+	{
+		my ( $key, @text ) = split /[\n\s]+/, $code;
+
+		$k = $key;
+		$v = join ' ', @text;
+	}
+	elsif( $code =~ s/^\(\s*(.+)\s*\)/$1/s )
+	{
+		if( $code =~ /^(?:"(\w+)"|'(\w+)')\s*,\s*(?:"(.+?)"|'(.+?)')/s )
+		{
+			$k = $1 || $2;
+			$v = $3 || $4 || '';
+			$v =~ s/\s+/ /sg;
+		}
+		elsif( $code =~ /^(?:"(\w+)"|'(\w+)')/ )
+		{
+			$k = $1 || $2;
+			$v = '';
+		}
+		else
+		{
+			return ();
+		}
+	}
+	else
+	{
+		return ();
+	}
+
+	$v =~ s/\\"/"/g;
+	$v =~ s/"/\\"/g;
+	
+	return ( $k, $v );
+}
+
+
+if( open F, "find $ARGV[0] -type f -name '*.htm' -or -name '*.lua' |" )
+{
+	while( defined( my $file = readline F ) )
+	{
+		chomp $file;
+
+		if( open S, "< $file" )
+		{
+			my $text = '';
+			$text .= $_ foreach( readline S );
+
+			while(
+				$text =~ s/
+					^ .*?
+					(?:
+						(?: translate f? | i18n )
+						[\s\n]* ( \( )
+					|
+						( \<%: -? )
+					)
+				/$1 || $2/segx
+			) {
+				#$text =~ s/^ .*? (?: (?: translate f? | i18n ) [\s\n]* ( \( ) | ( <%: -? ) ) / $1 || $2 /sex;
+				#warn "T[$text]";
+				my $code;
+
+				reparse:
+				( $code, $text ) = extract_codeblock( $text, '', '^', '()' );
+				if( ! $code ) {
+					( $code, $text ) = extract_codeblock( $text, '', '^', '<>' );
+				}
+
+				if( ! $code ) {
+					# Corner case:
+					$text =~ s/(#[^\n]*)%>/$1\n%>/;
+					( $code, $text ) = extract_codeblock( $text, '<>', '^' );
+					if( ! $code ) {
+						last;
+					}
+				}
+
+				my ( $k, $v ) = _parse( $code );
+				#warn "M[$code]";
+				#last;
+		
+				if( $k && defined($v) )
+				{
+					if( $v )
+					{
+						printf "#. %s\n", $v || $k;
+					}
+
+					printf "msgid \"%s\"\nmsgstr \"%s\"\n\n",
+						$k, $v;
+				}
+			}
+
+			close S;
+		}
+	}
+
+	close F;
+}
-- 
2.11.0