1 files changed, 180 insertions, 0 deletions
diff --git a/bootloader/make-grub-po b/bootloader/make-grub-po
new file mode 100755
index 0000000..d85005b
--- /dev/null
+++ b/bootloader/make-grub-po
@@ -0,0 +1,180 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2017 Mageia
+#
+# 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, 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, 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);