Update localization for the renderer.

The renderer no longer should have translations for PG since PG now has
its own translations.  So the localilzations only include the `maketext`
calls in the `templates`, `lib/WeBWorK`, and `lib/RenderApp`
directories, as well as any in the `lib/RenderApp.pm` file.  Although in
actuallity all of them are in the `templates` directory.

The `docs/make_translation_files.md` file has been removed.  Instead the
`bin/update-localization-files` script handles this.  Run
`./bin/update-localization-files -h` for usage.  Basically run
`./bin/update-localization-files` to only update the pot file, or run
`./bin/update-localization-files -p` to update the pot file and the po
files.  You can also run `./bin/update-localization-files -l heb` (for
example) to update the pot file and the heb.po file.

Note that the pot file is renamed to `lib/WeBWorK/Localize/renderer.pot`
instead of `lib/WeBWorK/Localize/standalone.pot` since this is the
`renderer` app, not the `standalone` app.  Generally, I would like to
stop calling this the "standalone renderer" and just call it the
"renderer" (or perhaps better the "pg-renderer"?).

The `lib/WeBWorK/Localize.pm` file has been updated with changes similar
to those made for WeBWorK.

Also remove the `language_subroutine` from the `WeBWorK::PG->new` calls.
That is not a valid translation option anymore, and doesn't do anything.

Author: drgrice1

bin/update-localization-files

@@ -0,0 +1,60 @@
+#!/usr/bin/env bash
+
+function print_help_exit
+{
+	printf "Usage: %s [options]\n" $(basename $0) >&2
+	printf " Update the renderer.pot and language .po files with translation strings from the code.\n" >&2
+	printf "  options:\n" >&2
+	printf "    -p|--po-update  Update po files as well.  By default only the renderer.pot file is updated.\n" >&2
+	printf "    -l|--langauge   Update the only given language in addition to updating the renderer.pot file.\n" >&2
+	printf "    -h|--help       Show this help.\n" >&2
+	exit 1
+}
+
+TEMP=$(getopt -a -o pl:h -l po-update,language:,help -n "$(basename $0)" -- "$@")
+
+eval set -- "$TEMP"
+
+UPDATE_PO=false
+LANGUAGE=""
+
+while [ ! "$1" = "--" ]
+do
+	case "$1" in
+		-p|--po-update)
+			UPDATE_PO=true
+			shift 1
+			;;
+		-l|--language)
+			LANGUAGE=$2
+			shift 2
+			;;
+		-h|--help)
+			print_help_exit
+			;;
+		*)
+			echo "Internal error!"
+			exit 1
+			;;
+	esac
+done
+
+command -v xgettext.pl >/dev/null 2>&1 || {
+    echo >&2 "xgettext.pl needs to be installed. It is inlcuded in the perl package Locale::Maketext::Extract. Aborting.";
+    exit 1;
+}
+
+cd "$( dirname "${BASH_SOURCE[0]}" )/.."
+
+LOCDIR=lib/WeBWorK/Localize
+
+echo "Updating $LOCDIR/renderer.pot"
+
+xgettext.pl -o $LOCDIR/renderer.pot -D lib/Renderer -D lib/WeBWorK -D templates lib/Renderer.pm
+
+if $UPDATE_PO; then
+	find $LOCDIR -name '*.po' -exec bash -c "echo \"Updating {}\"; msgmerge -qUN {} $LOCDIR/renderer.pot" \;
+elif [[ $LANGUAGE != "" && -e "$LOCDIR/$LANGUAGE.po" ]]; then
+	echo "Updating $LOCDIR/$LANGUAGE.po"
+	msgmerge -qUN $LOCDIR/$LANGUAGE.po $LOCDIR/renderer.pot
+fi

docs/make_translation_files.md

@@ -1,63 +1,35 @@
 package WeBWorK::Localize;
+use Mojo::Base 'Locale::Maketext', -strict;
 
-use File::Spec;
-
-use Locale::Maketext;
 use Locale::Maketext::Lexicon;
+use Mojo::File;
 
-my $path     = "$ENV{RENDER_ROOT}/lib/WeBWorK/Localize";
-my $pattern  = File::Spec->catfile($path, '*.[pm]o');
-my $decode   = 1;
-my $encoding = undef;
-
-eval "
-	package WeBWorK::Localize::I18N;
-	use base 'Locale::Maketext';
-    %WeBWorK::Localize::I18N::Lexicon = ( '_AUTO' => 1 );
-	Locale::Maketext::Lexicon->import({
-	    'i-default' => [ 'Auto' ],
-	    '*'	=> [ Gettext => \$pattern ],
-	    _decode => \$decode,
-	    _encoding => \$encoding,
-	});
-	*tense = sub { \$_[1] . ((\$_[2] eq 'present') ? 'ing' : 'ed') };
-
-" or die "Can't process eval in WeBWorK/Localize.pm: line 35:  " . $@;
-
-package WeBWorK::Localize;
-
-# This subroutine is shared with the safe compartment in PG to
-# allow maketext() to be constructed in PG problems and macros
-# It seems to be a little fragile -- possibly it breaks
-# on perl 5.8.8
-sub getLoc {
-	my $lang = shift;
-	my $lh   = WeBWorK::Localize::I18N->get_handle($lang);
-	return sub { $lh->maketext(@_) };
-}
+Locale::Maketext::Lexicon->import({
+	'i-default' => ['Auto'],
+	'*'         => [ Gettext => Mojo::File::curfile->dirname->child('Localize', '*.[pm]o')->to_string ],
+	_decode     => 1,
+	_encoding   => undef,
+});
 
 sub getLangHandle {
 	my $lang = shift;
-	my $lh   = WeBWorK::Localize::I18N->get_handle($lang);
-	return $lh;
+	return WeBWorK::Localize->get_handle($lang);
 }
 
-# this is like [quant] but it doesn't write the number
+# This is like [quant] but it doesn't write the number.
 #  usage: [quant,_1,<singular>,<plural>,<optional zero>]
-
 sub plural {
 	my ($handle, $num, @forms) = @_;
 
-	return ""        if @forms == 0;
+	return ''        if @forms == 0;
 	return $forms[2] if @forms > 2 and $num == 0;
 
 	# Normal case:
 	return ($handle->numerate($num, @forms));
 }
 
-# this is like [quant] but it also has -1 case
+# This is like [quant] but it also has -1 case.
 #  usage: [negquant,_1,<neg case>,<singular>,<plural>,<optional zero>]
-
 sub negquant {
 	my ($handle, $num, @forms) = @_;
 
@@ -70,9 +42,6 @@ sub negquant {
 	return ($handle->numf($num) . ' ' . $handle->numerate($num, @forms));
 }
 
-%Lexicon = ('_AUTO' => 1,);
-
-package WeBWorK::Localize::I18N;
-use base(WeBWorK::Localize);
+our %Lexicon = ('_AUTO' => 1);
 
 1;