#!/usr/bin/perl -s
#we added -s to have simple params functionality

# 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 Library 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, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.

#Author: Eddy Petrisor <eddy.petrisor@gmail.com>
#
#Call the script with parameter -help to see the options.


sub setup()
{
	$needhelp = 1;
	if ($msgid) {$msgmark="msgid"; $marksup='_plural'; $needhelp = 0;}
	if ($msgstr) {$msgmark="msgstr"; $marksup='\[\d+\]'; $needhelp = 0;}
	if ($noignore)
	{
		if ($msgmark) {$firsttime = 0;}
		else { $needhelp = 1; }
	}
	unless ($msgmark) { $needhelp = 1; }

	$ARGC = @ARGV;	#getting the number of parameters
	if ($ARGC gt 1) { $needhelp = 1; }
	else
	{
		if ($ARGC eq 1)
		{
			$filename = @ARGV[0];
			if ( open(STDIN, "$filename") )
			{
				print "\n*** $filename\n";
			}
			else
			{
				print "!!!! Error opening $filename! Will quit!\n" and die;
			}	
		}
		else
		{
			# there is no filename in the command line
			# so we will read the input directly from STDIN

			# we are already set for this situation, so we do nothing
			1;
		}
	}
	
	if ( ($help) || ($needhelp eq 1) ) { help(); }

}

sub help()
{
	print "\n\nUsage: $0 [-msgid|-msgstr] [-noignore] [-filter=SOMESTRING] [filename]\n";
	print "\nExtracts msgid or msgstr fields from a .po file.\n";
	print "\n\t-msgid\n\t\tExtract msgid-s\n\t-msgstr\n\t\tExtract msgstr-s";
	print "\n\t-noignore\n\t\tBy default, the first msgid/msgstr is ignored because";
	print "\n\t\tregular .po files have the header in there. If this";
	print "\n\t\tparameter is specified then the first msgid/msgstr is";
	print "\n\t\tincluded, too.";
	print "\n\t-filter=SOMESTRING\n\t\tIgnore the messages which contain in the associated";
	print "\n\t\tcomment the string SOMESTRING.";
	print "\n\t\tIn the input there should be a comment line '#SOMESTRING'";
	print "\n\t\tif the next message should be omitted from the processing.\n";
	print "\n\tfilename\n\t\tAn optional filename that should be a valid po filename.";
	print "\n\t\tIf no file name is given, then the input is";
	print "\n\t\texpected to come from stdin";
	print "\n\nExamples:\n\n\tperl -s $0 -msgid ro.po > ro_all.txt\n";
	print "\n\tcat ro.po | perl -s $0 -msgid > ro_all.txt\n";
	print "\n\tperl -s $0 -msgstr -filter=IGNMSG manpg.po >manpg.msgstrs\n";
	print "\nNOTE: This script needs to be run with Perl's -s option.";
	print "\n\tThis should be taken care by the shebang,\n";
	print "\tbut life is full of surprises :-)\n";
	print "\tIf you are surprised, use perl's parameter -s.\n\n";
	die "\n";
}

$ismsg = 0;
$firsttime = 1;
$printmsg = 'yes';

setup();

while (defined($line = <STDIN>))
{
	# process $line here

	if ( ! $line )
	{
		$printmsg = 'yes';
	}
	
	if ( $line =~ /^\s*$/ )
	{
		$printmsg = 'yes';
	}
	
	unless ( $line =~ /^\s*#.*/ )
	{
		if ( $line =~ /^$msgmark($marksup)? .*/)
		{
			$line =~ s/^$msgmark($marksup)? (.*)/\2/;
			unless ($line =~ /^\"\"/) { $printmsg && print "- $line";}
			#do not parse the header, if requested not to.
			if ($firsttime == 0) {$ismsg = 1;}
			$firsttime = 0;
		}
		else
		{
			if ($ismsg eq 1)
			{
				if ( $line =~ /^\s*".+"/ )
				{
					$printmsg && print "- $line";
				}
				else
				{
					$ismsg = 0;
				}
			}
		}
	}
	elsif ( $filter )
	{
		if ( $line =~ /^\s*#$filter$/ )
		{
			$printmsg = '';
		}
	}
}