1 files changed, 0 insertions, 115 deletions
diff --git a/bootloader/make-kbd-info b/bootloader/make-kbd-info
deleted file mode 100755
index d36fde8..0000000
--- a/bootloader/make-kbd-info
+++ /dev/null
@@ -1,115 +0,0 @@
-#!/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 gets the list of supported keyboards from libDrakX and
-# generates a grub2 keyboard mapping file for each keyboard in the list.
-# It then generates the keyboard names file and the language to keyboard
-# mapping file that are used when generating the bootloader menus for
-# the Mageia ISOs.
-#
-# The grub2 keyboard mapping files are generated using the grub2-kbdcomp
-# program. The X11 keyboard layout and variant names are obtained from
-# libDrakX. The files (*.gkb) are stored in the 'layouts' subdirectory
-# of the current working directory.
-#
-# The keyboard names file consists of a list of paired identifier and
-# description strings. The identifier is the keyboard identifier used
-# in libDrakX. The description is the canonical keyboard description
-# provided by libDrakX. The file (kbd-names.txt) is stored in the
-# current working directory.
-# 
-# The language to keyboard mapping file consists of a map of language
-# identifier to keyboard identifier strings. The language identifier
-# is the standard language/country code used for specifying a locale
-# (e.g. en_US). The keyboard identifier is the default keyboard for
-# that language, as provided by libDrakX. The file (lang-kbds.txt) is
-# stored in the current working directory.
-#
-# The list of supported languages is read from the language names file
-# (lang-names.txt) that is used when generating the bootloader menus.
-# This file is expected to be found in the current working directory. 
-
-use lib qw(/usr/lib/libDrakX);
-
-use strict;
-
-use Cwd qw(getcwd);
-use Data::Dumper;
-use MDK::Common;
-use common;
-use keyboard;
-use run_program;
-
-# Make sure we get the canonical description for the keyboard.
-$ENV{LANGUAGE} = 'C';
-
-# Make sure the 'layouts' subdirectory exists.
-my $kbd_dir = getcwd() . '/layouts';
-mkdir_p($kbd_dir);
-
-# Generate the grub2 keyboard mapping files and collect the keyboard
-# descriptions. For keyboards with multiple layouts, only use the first
-# layout. If we fail to generate a keyboard mapping, don't include that
-# keyboard in the lists.
-my %names;
-my @keyboards = map { { KEYBOARD => $_ } } keyboard::KEYBOARDs();
-foreach (@keyboards) {
-    my $id = $_->{KEYBOARD};
-    my $xkb = keyboard::keyboard2full_xkb($_);
-    my @model   = split(',', $xkb->{XkbModel});
-    my @layout  = split(',', $xkb->{XkbLayout});
-    my @variant = split(',', $xkb->{XkbVariant});
-    my $kbd_file = $kbd_dir . '/' . $id . '.gkb';
-    if (-e $kbd_file || run_program::run('grub2-kbdcomp', '-o', $kbd_file, '-model', $model[0], $layout[0], $variant[0])) {
-        $names{$id} = translate(keyboard::keyboard2text($_));
-    } else {
-        rm_rf($kbd_file);
-    }
-}
-
-# Generate the keyboard names file.
-my $filename = getcwd() . '/kbd-names.txt';
-open(my $f, '>' . $filename) or die "couldn't open $filename";
-print $f "(\n";
-foreach my $id (sort keys %names) {
-   my $name = $names{$id};
-   printf $f "    '$id'%s => '$name',\n", ' ' x (16 - length($id));
-}
-print $f ")\n";
-close($f);
-
-# Read the list of supported languages.
-my $lang_names = getcwd() . '/lang-names.txt';
--e $lang_names or die "cannot find language names file $lang_names\n";
-my @langs = group_by2(eval(cat_($lang_names)))
-  or die "error in language names file $lang_names\n";
-
-# Generate the language to keyboard mapping file.
-$filename = getcwd() . '/lang-kbds.txt';
-open($f, '>' . $filename) or die "couldn't open $filename";
-print $f "{\n";
-foreach (@langs) {
-    my ($lang) = @$_;
-    my $kbd = keyboard::lang2keyboard($lang)->{KEYBOARD};
-    $kbd = '' if !$names{$kbd};
-    printf $f "    '$lang' => '$kbd',\n";
-}
-print $f "}\n";
-close($f);