#!/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 the keyboard names file and the language to keyboard mapping
# file that are used when generating the bootloader menus for the Mageia
# ISOs.
#
# 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.
#
# NOTE: An older version of this program also generated GRUB2 keyboard
# layout files for each supported language, but it was found that the
# GRUB2 at_keyboard driver did not work on all hardware, so this feature
# was dropped.

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

use strict;

use Cwd qw(getcwd);
use MDK::Common;
use common;
use keyboard;

# Make sure we get the canonical description for the keyboard.
$ENV{LANGUAGE} = 'C';

# Collect the keyboard descriptions. For keyboards with multiple layouts,
# only use the first layout.
my %names;
my @keyboards = map { { KEYBOARD => $_ } } keyboard::KEYBOARDs();
foreach (@keyboards) {
    my $id = $_->{KEYBOARD};
    $names{$id} = translate(keyboard::keyboard2text($_));
}

# 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);