}sub Console_WriteError_InvalidOption{    ## Handle invalid arguments    print STDERR "Try `${PROGRAM} --help' for more information.\n";    exit 1;}sub GenerateHeaders{    my $EXTRACT = `which intltool-extract 2>/dev/null`;    chomp $EXTRACT;    $EXTRACT = $ENV{"INTLTOOL_EXTRACT"} if $ENV{"INTLTOOL_EXTRACT"};    ## Generate the .h header files, so we can allow glade and    ## xml translation support    if (! -x "$EXTRACT")    {	print STDERR "\n *** The intltool-extract script wasn't found!"	     ."\n *** Without it, intltool-update can not generate files.\n";	exit;    }    else    {	open (FILE, $POTFILES_in) or die "$PROGRAM: POTFILES.in not found.\n";		while (<FILE>) 	{	   chomp;	   next if /^\[\s*encoding/;	   ## Find xml files in POTFILES.in and generate the	   ## files with help from the extract script	   my $gettext_type= &POFile_DetermineType ($1);	   if (/\.($xml_support|$ini_support)$/ || /^\[/)	   {	       s/^\[[^\[].*]\s*//;	       my $filename = "../$_";	       if ($VERBOSE)	       {		   system ($EXTRACT, "--update", "--srcdir=$SRCDIR",			   "--type=$gettext_type", $filename);	       } 	       else 	       {	 	   system ($EXTRACT, "--update", "--type=$gettext_type", 			   "--srcdir=$SRCDIR", "--quiet", $filename);	       }	   }       }       close FILE;   }}## Generate .pot file from POTFILES.in#sub GeneratePOTemplate{    my $XGETTEXT = `which xgettext 2>/dev/null`;    my $XGETTEXT_ARGS = '';    chomp $XGETTEXT;    $XGETTEXT = $ENV{"XGETTEXT"} if $ENV{"XGETTEXT"};    $XGETTEXT_ARGS = $ENV{"XGETTEXT_ARGS"} if $ENV{"XGETTEXT_ARGS"};    if (! -x $XGETTEXT)    {	print STDERR " *** xgettext is not found on this system!\n".		     " *** Without it, intltool-update can not extract strings.\n";	exit;    }    print "Building $MODULE.pot...\n" if $VERBOSE;    open INFILE, $POTFILES_in;    unlink "POTFILES.in.temp";    open OUTFILE, ">POTFILES.in.temp";    my $gettext_support_nonascii = 0;    # checks for GNU gettext >= 0.12    my $dummy = `$XGETTEXT --version --from-code=UTF-8 >/dev/null 2>/dev/null`;    if ($? == 0)    {	$gettext_support_nonascii = 1;    }    else    {	# urge everybody to upgrade gettext	print STDERR "WARNING: This version of gettext does not support extracting non-ASCII\n".		     "         strings. That means you should install a version of gettext\n".		     "         that supports non-ASCII strings (such as GNU gettext >= 0.12),\n".		     "         or have to let non-ASCII strings untranslated. (If there is any)\n";    }    my $encoding = "ASCII";    my $forced_gettext_code;    my @temp_headers;    my $encoding_problem_is_reported = 0;    while (<INFILE>)     {	next if (/^#/ or /^\s*$/);	chomp;	my $gettext_code;	if (/^\[\s*encoding:\s*(.*)\s*\]/)	{	    $forced_gettext_code=$1;	}	elsif (/\.($xml_support|$ini_support)$/ || /^\[/)	{	    s/^\[.*]\s*//;	    print OUTFILE "$_.h\n";	    push @temp_headers, "../$_.h";	    $gettext_code = &TextFile_DetermineEncoding ("../$_.h") if ($gettext_support_nonascii and not defined $forced_gettext_code);	} 	else 	{	    if ($SRCDIR eq ".") {	        print OUTFILE "$_\n";	    } else {	        print OUTFILE "$SRCDIR/../$_\n";	    }	    $gettext_code = &TextFile_DetermineEncoding ("../$_") if ($gettext_support_nonascii and not defined $forced_gettext_code);	}	next if (! $gettext_support_nonascii);	if (defined $forced_gettext_code)	{	    $encoding=$forced_gettext_code;	}	elsif (defined $gettext_code and "$encoding" ne "$gettext_code")	{	    if ($encoding eq "ASCII")	    {		$encoding=$gettext_code;	    }	    elsif ($gettext_code ne "ASCII")	    {		# Only report once because the message is quite long		if (! $encoding_problem_is_reported)		{		    print STDERR "WARNING: You should use the same file encoding for all your project files,\n".				 "         but $PROGRAM thinks that most of the source files are in\n".				 "         $encoding encoding, while \"$_\" is (likely) in\n".		       		 "         $gettext_code encoding. If you are sure that all translatable strings\n".				 "         are in same encoding (say UTF-8), please \e[1m*prepend*\e[0m the following\n".				 "         line to POTFILES.in:\n\n".				 "                 [encoding: UTF-8]\n\n".				 "         and make sure that configure.in/ac checks for $PACKAGE >= 0.27 .\n".				 "(such warning message will only be reported once.)\n";		    $encoding_problem_is_reported = 1;		}	    }	}    }    close OUTFILE;    close INFILE;    unlink "$MODULE.pot";    my @xgettext_argument=("$XGETTEXT",			   "--add-comments",			   "--directory\=\.\.",			   "--output\=$MODULE\.pot",			   "--files-from\=\.\/POTFILES\.in\.temp");    my $XGETTEXT_KEYWORDS = &FindPOTKeywords;    push @xgettext_argument, $XGETTEXT_KEYWORDS;    push @xgettext_argument, "--from-code\=$encoding" if ($gettext_support_nonascii);    push @xgettext_argument, $XGETTEXT_ARGS if $XGETTEXT_ARGS;    my $xgettext_command = join ' ', @xgettext_argument;    # intercept xgettext error message    print "Running $xgettext_command\n" if $VERBOSE;    my $xgettext_error_msg = `$xgettext_command 2>\&1`;    my $command_failed = $?;    unlink "POTFILES.in.temp";    print "Removing generated header (.h) files..." if $VERBOSE;    unlink foreach (@temp_headers);    print "done.\n" if $VERBOSE;    if (! $command_failed)    {	if (! -e "$MODULE.pot")	{	    print "None of the files in POTFILES.in contain strings marked for translation.\n" if $VERBOSE;	}	else	{	    print "Wrote $MODULE.pot\n" if $VERBOSE;	}    }    else    {	if ($xgettext_error_msg =~ /--from-code/)	{	    # replace non-ASCII error message with a more useful one.	    print STDERR "ERROR: xgettext failed to generate PO template file because there is non-ASCII\n".			 "       string marked for translation. Please make sure that all strings marked\n".			 "       for translation are in uniform encoding (say UTF-8), then \e[1m*prepend*\e[0m the\n".			 "       following line to POTFILES.in and rerun $PROGRAM:\n\n".			 "           [encoding: UTF-8]\n\n";	}	else	{	    print STDERR "$xgettext_error_msg";	    if (-e "$MODULE.pot")	    {		# is this possible?		print STDERR "ERROR: xgettext failed but still managed to generate PO template file.\n".			     "       Please consult error message above if there is any.\n";	    }	    else	    {		print STDERR "ERROR: xgettext failed to generate PO template file. Please consult\n".			     "       error message above if there is any.\n";	    }	}	exit (1);    }}sub POFile_Update{    -f "$MODULE.pot" or die "$PROGRAM: $MODULE.pot does not exist.\n";    my ($lang, $outfile) = @_;    print "Merging $lang.po with $MODULE.pot..." if $VERBOSE;    my $infile = "$lang.po";    $outfile = "$lang.po" if ($outfile eq "");    # I think msgmerge won't overwrite old file if merge is not successful    system ("msgmerge", "-o", $outfile, $infile, "$MODULE.pot");}sub Console_WriteError_NotExisting{    my ($file) = @_;    ## Report error if supplied language file is non-existing    print STDERR "$PROGRAM: $file does not exist!\n";    print STDERR "Try '$PROGRAM --help' for more information.\n";    exit;}sub GatherPOFiles{    my @po_files = glob ("./*.po");    @languages = map (&POFile_GetLanguage, @po_files);    foreach my $lang (@languages)     {	$po_files_by_lang{$lang} = shift (@po_files);    }}sub POFile_GetLanguage ($){    s/^(.*\/)?(.+)\.po$/$2/;    return $_;}sub Console_Write_TranslationStatus{    my ($lang, $output_file) = @_;    $output_file = "$lang.po" if ($output_file eq "");    system ("msgfmt", "-o", "/dev/null", "--statistics", $output_file);}sub Console_Write_CoverageReport{    &GatherPOFiles;    foreach my $lang (@languages)     {	print "$lang: ";	&POFile_Update ($lang, "");    }    print "\n\n * Current translation support in $MODULE \n\n";    foreach my $lang (@languages)    {	print "$lang: ";	system ("msgfmt", "-o", "/dev/null", "--statistics", "$lang.po");    }}sub SubstituteVariable{    my ($str) = @_;        # always need to rewind file whenever it has been accessed    seek (CONF, 0, 0);    # cache each variable. varhash is global to we can add    # variables elsewhere.    while (<CONF>)    {	if (/^(\w+)=(.*)$/)	{	    ($varhash{$1} = $2) =~  s/^["'](.*)["']$/$1)/;	}    }        if ($str =~ /^(.*)\${?([A-Z_]+)}?(.*)$/)    {	my $rest = $3;	my $untouched = $1;	my $sub = $varhash{$2};		return SubstituteVariable ("$untouched$sub$rest");    }    return $str;}sub CONF_Handle_Open{    my $base_dirname = getcwd();    $base_dirname =~ s@.*/@@;    my ($conf_in, $src_dir);    if ($base_dirname =~ /^po(-.+)?$/)     {	if (-f "Makevars") 	{	    my $makefile_source;	    local (*IN);	    open (IN, "<Makevars") || die "can't open Makevars: $!";	    while (<IN>) 	    {		if (/^top_builddir[ \t]*=/) 		{		    $src_dir = $_;		    $src_dir =~ s/^top_builddir[ \t]*=[ \t]*([^ \t\n\r]*)/$1/;		    chomp $src_dir;                    if (-f "$src_dir" . "/configure.ac") {                        $conf_in = "$src_dir" . "/configure.ac" . "\n";                    } else {                        $conf_in = "$src_dir" . "/configure.in" . "\n";                    }		    last;		}	    }	    close IN;	    $conf_in || die "Cannot find top_builddir in Makevars.";	}	elsif (-f "../configure.ac") 	{	    $conf_in = "../configure.ac";	} 	elsif (-f "../configure.in") 	{	    $conf_in = "../configure.in";	} 	else 	{	    my $makefile_source;	    local (*IN);	    open (IN, "<Makefile") || return;	    while (<IN>) 	    {		if (/^top_srcdir[ \t]*=/) 		{		    $src_dir = $_;		    		    $src_dir =~ s/^top_srcdir[ \t]*=[ \t]*([^ \t\n\r]*)/$1/;		    chomp $src_dir;		    $conf_in = "$src_dir" . "/configure.in" . "\n";		    last;		}	    }	    close IN;	    $conf_in || die "Cannot find top_srcdir in Makefile.";	}	open (CONF, "<$conf_in");    }    else    {	print STDERR "$PROGRAM: Unable to proceed.\n" .		     "Make sure to run this script inside the po directory.\n";	exit;    }}sub FindPackageName{    my $version;    my $domain = &FindMakevarsDomain;    my $name = $domain || "untitled";    &CONF_Handle_Open;    my $conf_source; {	local (*IN);	open (IN, "<&CONF") || return $name;	seek (IN, 0, 0);	local $/; # slurp mode	$conf_source = <IN>;	close IN;    }    # priority for getting package name:    # 1. GETTEXT_PACKAGE    # 2. first argument of AC_INIT (with >= 2 arguments)    # 3. first argument of AM_INIT_AUTOMAKE (with >= 2 argument)    # /^AM_INIT_AUTOMAKE\([\s\[]*([^,\)\s\]]+)/m     # the \s makes this not work, why?    if ($conf_source =~ /^AM_INIT_AUTOMAKE\(([^,\)]+),([^,\)]+)/m)    {	($name, $version) = ($1, $2);	$name    =~ s/[\[\]\s]//g;	$version =~ s/[\[\]\s]//g;	$varhash{"AC_PACKAGE_NAME"} = $name;	$varhash{"PACKAGE"} = $name;	$varhash{"AC_PACKAGE_VERSION"} = $version;	$varhash{"VERSION"} = $version;    }        if ($conf_source =~ /^AC_INIT\(([^,\)]+),([^,\)]+)/m)     {	($name, $version) = ($1, $2);	$name    =~ s/[\[\]\s]//g;	$version =~ s/[\[\]\s]//g;	$varhash{"AC_PACKAGE_NAME"} = $name;	$varhash{"PACKAGE"} = $name;	$varhash{"AC_PACKAGE_VERSION"} = $version;	$varhash{"VERSION"} = $version;    }    # \s makes this not work, why?    $name = $1 if $conf_source =~ /^GETTEXT_PACKAGE=\[?([^\n\]]+)/m;        # prepend '$' to auto* internal variables, usually they are    # used in configure.in/ac without the '$'    $name =~ s/AC_/\$AC_/g;    $name =~ s/\$\$/\$/g;    $name = $domain if $domain;    $name = SubstituteVariable ($name);    $name =~ s/^["'](.*)["']$/$1/;    return $name if $name;}sub FindPOTKeywords{    my $keywords = "--keyword\=\_ --keyword\=N\_ --keyword\=U\_";    my $varname = "XGETTEXT_OPTIONS";    my $make_source; {	local (*IN);	open (IN, "<Makevars") || (open(IN, "<Makefile.in.in") && ($varname = "XGETTEXT_KEYWORDS")) || return $keywords;	seek (IN, 0, 0);	local $/; # slurp mode	$make_source = <IN>;	close IN;    }    $keywords = $1 if $make_source =~ /^$varname[ ]*=\[?([^\n\]]+)/m;        return $keywords;}sub FindMakevarsDomain{    my $domain = "";    my $makevars_source; { 	local (*IN);	open (IN, "<Makevars") || return $domain;	seek (IN, 0, 0);	local $/; # slurp mode	$makevars_source = <IN>;	close IN;    }    $domain = $1 if $makevars_source =~ /^DOMAIN[ ]*=\[?([^\n\]\$]+)/m;    $domain =~ s/^\s+//;    $domain =~ s/\s+$//;        return $domain;}