locale/
locale/po <--contains the generic template file; must be copied to lang-specific directories for translation
locale/po/messages.pot <--generic template file
locale/en_US <--locale-specific
locale/en_US/LC_MESSAGES <--holds lang-specific translations
locale/en_US/LC_MESSAGES/en_US.po <--lang-specific template file, usually created by msginit
locale/en_US/LC_MESSAGES/en_US.mo <--compiled translation file, usually created by msgfmt
locale/de_DE
locale/de_DE/LC_MESSAGES
etc...

#! /usr/bin/perl -w
#
# expandDefines.pl: Expand defines, mark with T_() tag for gettext
# processing
# 
# Usage: expandDefines.pl <lang>
#
# Author: Brian Koontz <[email protected]> Copyright 2010
# 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 3 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, see <http://www.gnu.org/licenses/>.
#
#####################################################################
use strict;
# Create dictionary of defines appearing in lang file
if(!$ARGV[0])
{
	die "Usage: $0 <lang>\n";
}
my $lang = $ARGV[0];
my $langfile = "/cygdrive/c/wamp/www/wikka-gettext/lang/$lang/$lang.inc.php";
my %dict = ();
my $lineno = 0;
open(IN, "<$langfile") or die "Can't open $langfile for reading!";
while(<IN>)
{
	chomp;
	if(!/^.*\s+define\s*\((.*?)\)/)
	{
		next;
	}
	my @fields = split(/\s*,\s*/, $1);
	my $const = $fields[0];
	# Restore other commas
	my $val = join(', ', @fields[1..$#fields]);
	$const =~ s/['"](.*?)['"]/$1/;
	$val =~ s/['](.*?)[']/$1/;
	$dict{$const} = $val;
	$lineno++;
}
print "Number of language constants: $lineno\n";
close IN;
# Parse each .php file, replacing constants with expansion: T("..."). 
my @filelist = ();
# Exclude these files from search
my @exclude = ($langfile, '3rdparty', 'wikka.config.php');
# Exclude these strings from search
my @excludestrings = ('DIRECTORY_SEPARATOR', 'defined', 'define');
# Exclude these strings from gettext-wrapping
my @excludefromtranslation = ('class=', 'id=', 'name=');
use File::Find;
sub getFile
{
	if($File::Find::name=~/.*.php$/ &&
	   !grep $File::Find::name=~/$_/, @exclude)
	{ 
		push(@filelist, $File::Find::name);
	} 
}
# Get list of files
find (\&getFile, ".");
$lineno = 0;
my $header = 0;
foreach my $file(@filelist)
{
	open(IN, "<$file") or die "Can't open $file for reading!";
	open(OUT, ">$file.new") or die "Can't open $file.new for writing!";
	my $search = "([A-Z0-9]+(_[A-Z0-9]+)+)";
	while(<IN>)
	{
		$lineno++;
		my $line = $_;
		if(!grep($line=~/$_/, @excludestrings))
		{
			# Search for two or more consecutive upper-case letter groupings
			# separated by _
			while($line =~ /$search/g)
			{
				if(exists($dict{$1}))
				{
					if($dict{$1} =~ /^[0-9]+$/)
					{
						1; # Don't do anything with defines 
						   # for numeric constants
					}
					elsif(!grep($dict{$1}=~/$_/, @excludefromtranslation))
					{
						$line =~ s/$search/T_("$dict{$1}")/;
					}
					else
					{
						$line =~ s/$search/'$dict{$1}'/;
					}
				}	
			}
		}
		else
		{
			1;
		}
		print OUT $line;
	}
	close IN;
	close OUT;
	system("cp $file $file.orig");
	system("cp $file.new $file");
	$lineno = 0;
	$header = 0;
}