-# 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, write to the Free Software

-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

-

-# SYNOPSIS

-#

-# This program generates a PO file containing translations of the grub2

-# runtime messages into the language specified by the first command line

-# argument. grub2 must be installed on the build system, so that the

-# translations are available.

-#

-# The full set of translations is quite large, so we only generate

-# translations for the messages we expect to see in the ISO bootloader.

-#

-# The PO file (${LANGUAGE}-grub.po) is stored in the current working

-# directory.

-

-use lib qw(/usr/lib/libDrakX);

-

-use strict;

-

-use Cwd qw(abs_path getcwd);

-use MDK::Common;

-use common;

-

-# Get correct namespace (grub instead of libDrakX).

-BEGIN { unshift @::textdomains, 'grub' }

-

-# Set the translation language.

-@ARGV == 1 && $ARGV[0] or die "Usage: make-grub-po <language code>\n";

-$ENV{LANGUAGE} = $ARGV[0];

-

-# Define the list of strings we want to translate.

-my @msgids = (

- "Press enter to boot the selected OS, `e' to edit the commands before booting " .

- "or `c' for a command-line. ESC to return previous menu.",

-

- "The highlighted entry will be executed automatically in %ds.",

-

- "%ds remaining.",

-

- "%ds",

-

- "Minimal BASH-like line editing is supported. For the first word, TAB lists " .

- "possible command completions. Anywhere else TAB lists possible device or " .

- "file completions. %s",

-

- "ESC at any time exits.",

-

- "Press any key to continue...",

-

- "Possible commands are:",

-

- "Possible devices are:",

-

- "Possible files are:",

-

- "Possible partitions are:",

-

- "Possible arguments are:",

-

- "Possible things are:",

-

- "can't find command `%s'",

-

- "one argument expected",

-

- "two arguments expected",

-

- "three arguments expected",

-

- "four arguments expected",

-

- "missing arguments",

-

- "unknown argument",

-

- "missing `%c' symbol",

-

- "filename expected",

-

- "file or layout name required",

-

- "file `%s' not found",

-

- "no terminal specified",

-

- "terminal `%s' isn't found",

-

- "Active input terminals:",

-

- "Available input terminals:",

-

- "Active output terminals:",

-

- "Available output terminals:",

-

- "no server is specified",

-

- "Device %s:",

-

- "Partition %s:",

-

- "No known filesystem detected",

-

- "Filesystem cannot be accessed",

-

- "Filesystem type %s",

-

- "- Label `%s'",

-

- "- Last modification time %d-%02d-%02d %02d:%02d:%02d %s",

-

- "Monday",

- "Tuesday",

- "Wednesday",

- "Thursday",

- "Friday",

- "Saturday",

- "Sunday",

-

- " - Sector size %uB",

-

- " - Total size %llu%sKiB",

-

- " - Total size unknown",

-

- "Loaded fonts:",

-

- "error: %s.\n",

-

- ".5"

-);

-

-# Open the output file

-my $fn = getcwd() . '/' . $ARGV[0] . '-grub.po';

-open(my $fh, '>' . $fn) or die "couldn't open $fn";

-

-print $fh "# This file is automatically generated\n";

-print $fh "\n";

-

-foreach (@msgids) {

- my ($msgid) = $_;

-

- my $msgstr = translate($msgid);

-

- # Blank the message string if there is no translation available.

- $msgstr = '' if $msgstr eq $msgid;

-

- # Any double quote characters need to be escaped when writing the

- # PO file.

- $msgid =~ s/"/\\"/g;

- $msgstr =~ s/"/\\"/g;

-

- # Any newline characters need to be escaped when writing the

- # PO file.

- $msgid =~ s/\R/\\n/g;

- $msgstr =~ s/\R/\\n/g;

-

- # Write the entry for this item.

- print $fh "msgid \"$msgid\"\n";

- print $fh "msgstr \"$msgstr\"\n";

- print $fh "\n";

-}

-

-close($fh);