xref: /freebsd-11-stable/usr.sbin/bsdconfig/console/keymap

#!/bin/sh
#-
# Copyright (c) 2012-2013 Devin Teske
# All Rights Reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $FreeBSD: head/usr.sbin/bsdconfig/console/keymap 251236 2013-06-01 23:58:44Z dteske $
#
############################################################ INCLUDES

BSDCFG_SHARE="/usr/share/bsdconfig"
. $BSDCFG_SHARE/common.subr || exit 1
f_dprintf "%s: loading includes..." "$0"
f_include $BSDCFG_SHARE/dialog.subr
f_include $BSDCFG_SHARE/mustberoot.subr
f_include $BSDCFG_SHARE/sysrc.subr

BSDCFG_LIBE="/usr/libexec/bsdconfig" APP_DIR="080.console"
f_include_lang $BSDCFG_LIBE/$APP_DIR/include/messages.subr

ipgm=$( f_index_menusel_keyword $BSDCFG_LIBE/$APP_DIR/INDEX "$pgm" )
[ $? -eq $SUCCESS -a "$ipgm" ] && pgm="$ipgm"

############################################################ CONFIGURATION

#
# List of keymap names
#
KEYMAP_NAMES="
	belgian                  brazil_cp850             brazil_iso
	brazil_iso_accent        bulgarian_bds            bulgarian_phonetic
	central_european_iso     croatian_iso             czech_iso_accent
	danish_cp865             danish_iso               estonian_cp850
	estonian_iso             estonian_iso_15          finnish_cp850
	finnish_iso              french_iso               french_iso_accent
	french_iso_macbook       german_cp850             german_iso
	greek_101                greek_104                greek_elot
	hungarian_101            hungarian_102            icelandic
	icelandic_accent         italian                  japanese_106
	latin_american           latin_american_accent    norway_iso
	polish_iso               portuguese               portuguese_accent
	russia_koi8_r            slovak                   slovenian
	spanish                  spanish_accent           swedish_cp850
	swedish_iso              swiss_french_cp850       swiss_french_iso
	swiss_french_iso_accent  swiss_german_cp850       swiss_german_iso
	swiss_german_iso_accent  uk_cp850                 uk_iso
	ukrainian_koi8_u         ukrainian_koi8_u_koi8_r  usa_capslock_ctrl
	usa_dvorak               usa_dvorak_left          usa_dvorak_right
	usa_emacs                usa_iso                  usa_unix
" # END-QUOTE

############################################################ FUNCTIONS

# dialog_menu_main
#
# Display the dialog(1)-based application main menu.
#
dialog_menu_main()
{
	local menu_list defaultitem=
	local hline="$hline_choose_a_keyboard_map"
	local prompt="$msg_keymap_menu_text"

	#
	# Export variables for awk(1) ENVIRON visibility
	#
	local name
	for name in $KEYMAP_NAMES; do
		export msg_$name msg_${name}_desc
	done

	#
	# Generate a sorted list of keymaps. If the first letter of the keymap
	# name is unique (case-insensitive) then it is used as the tag to allow
	# the user to jump to that entry.
	#
	menu_list=$(
		for name in $KEYMAP_NAMES; do
			eval echo \"\$msg_$name\" msg_$name
		done | sort | awk 'BEGIN { prefix = "" }
		{
			cur_prefix = tolower(substr(ENVIRON[$NF], 1, 1))
			printf "'\''"
			if ( prefix != cur_prefix )
				prefix = cur_prefix
			else
				printf " "
			printf "%s'\'' '\''%s'\''\n",
			       ENVIRON[$NF], ENVIRON[$NF"_desc"]
		}'
	)

	local height width rows
	eval f_dialog_menu_size height width rows \
	                        \"\$DIALOG_TITLE\"     \
	                        \"\$DIALOG_BACKTITLE\" \
	                        \"\$prompt\"           \
	                        \"\$hline\"            \
	                        $menu_list

	case "$( f_sysrc_get keymap )" in
	be.iso) defaultitem="$msg_belgian";;
	br275.cp850) defaultitem="$msg_brazil_cp850";;
	br275.iso) defaultitem="$msg_brazil_iso";;
	br275.iso.acc) defaultitem="$msg_brazil_iso_accent";;
	bg.bds.ctrlcaps) defaultitem="$msg_bulgarian_bds";;
	bg.phonetic.ctrlcaps) defaultitem="$msg_bulgarian_phonetic";;
	ce.iso2) defaultitem="$msg_central_european_iso";;
	hr.iso) defaultitem="$msg_croatian_iso";;
	cs.latin2.qwertz) defaultitem="$msg_czech_iso_accent";;
	danish.cp865) defaultitem="$msg_danish_cp865";;
	danish.iso) defaultitem="$msg_danish_iso";;
	estonian.cp850) defaultitem="$msg_estonian_cp850";;
	estonian.iso) defaultitem="$msg_estonian_iso";;
	estonian.iso15) defaultitem="$msg_estonian_iso_15";;
	finnish.cp850) defaultitem="$msg_finnish_cp850";;
	finnish.iso) defaultitem="$msg_finnish_iso";;
	fr.iso) defaultitem="$msg_french_iso";;
	fr.iso.acc) defaultitem="$msg_french_iso_accent";;
	fr.macbook.acc) defaultitem="$msg_french_iso_macbook";;
	german.cp850) defaultitem="$msg_german_cp850";;
	german.iso) defaultitem="$msg_german_iso";;
	gr.us101.acc) defaultitem="$msg_greek_101";;
	el.iso07) defaultitem="$msg_greek_104";;
	gr.elot.acc) defaultitem="$msg_greek_elot";;
	hu.iso2.101keys) defaultitem="$msg_hungarian_101";;
	hu.iso2.102keys) defaultitem="$msg_hungarian_102";;
	icelandic.iso) defaultitem="$msg_icelandic";;
	icelandic.iso.acc) defaultitem="$msg_icelandic_accent";;
	it.iso) defaultitem="$msg_italian";;
	jp.106) defaultitem="$msg_japanese_106";;
	latinamerican) defaultitem="$msg_latin_american";;
	latinamerican.iso.acc) defaultitem="$msg_latin_american_accent";;
	norwegian.iso) defaultitem="$msg_norway_iso";;
	pl_PL.ISO8859-2) defaultitem="$msg_polish_iso";;
	pt.iso) defaultitem="$msg_portuguese";;
	pt.iso.acc) defaultitem="$msg_portuguese_accent";;
	ru.koi8-r) defaultitem="$msg_russia_koi8_r";;
	sk.iso2) defaultitem="$msg_slovak";;
	si.iso) defaultitem="$msg_slovenian";;
	spanish.iso) defaultitem="$msg_spanish";;
	spanish.iso.acc) defaultitem="$msg_spanish_accent";;
	swedish.cp850) defaultitem="$msg_swedish_cp850";;
	swedish.iso) defaultitem="$msg_swedish_iso";;
	swissfrench.cp850) defaultitem="$msg_swiss_french_cp850";;
	swissfrench.iso) defaultitem="$msg_swiss_french_iso";;
	swissfrench.iso.acc) defaultitem="$msg_swiss_french_iso_accent";;
	swissgerman.cp850) defaultitem="$msg_swiss_german_cp850";;
	swissgerman.iso) defaultitem="$msg_swiss_german_iso";;
	swissgerman.iso.acc) defaultitem="$msg_swiss_german_iso_accent";;
	uk.cp850) defaultitem="$msg_uk_cp850";;
	uk.iso) defaultitem="$msg_uk_iso";;
	ua.koi8-u) defaultitem="$msg_ukrainian_koi8_u";;
	ua.koi8-u.shift.alt) defaultitem="$msg_ukrainian_koi8_u_koi8_r";;
	us.pc-ctrl) defaultitem="$msg_usa_capslock_ctrl";;
	us.dvorak) defaultitem="$msg_usa_dvorak";;
	us.dvorakl) defaultitem="$msg_usa_dvorak_left";;
	us.dvorakr) defaultitem="$msg_usa_dvorak_right";;
	us.emacs) defaultitem="$msg_usa_emacs";;
	us.iso) defaultitem="$msg_usa_iso";;
	us.unix) defaultitem="$msg_usa_unix";;
	esac

	# The defaultitem may have to be indented to match the menu_list
	if [ "$defaultitem" ]; then
		( eval set -- $menu_list
		  while [ $# -gt 0 ]; do
		  	[ "$defaultitem" = "$1" ] && break
		  	[ " $defaultitem" = "$1" ] && exit 0
		  	shift 2 # tag/item
		  done
		  exit 1 # No modification needed
		) && defaultitem=" $defaultitem"
	fi

	local menu_choice
	menu_choice=$( eval $DIALOG \
		--title \"\$DIALOG_TITLE\"         \
		--backtitle \"\$DIALOG_BACKTITLE\" \
		--hline \"\$hline\"                \
		--ok-label \"\$msg_ok\"            \
		--cancel-label \"\$msg_cancel\"    \
		--default-item \"\$defaultitem\"   \
		--menu \"\$prompt\"                \
		$height $width $rows               \
		$menu_list                         \
		2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD
	)
	local retval=$?
	f_dialog_menutag_store -s "$menu_choice"
	return $retval
}

############################################################ MAIN

# Incorporate rc-file if it exists
[ -f "$HOME/.bsdconfigrc" ] && f_include "$HOME/.bsdconfigrc"

#
# Process command-line arguments
#
while getopts h$GETOPTS_STDARGS flag; do
	case "$flag" in
	h|\?) f_usage $BSDCFG_LIBE/$APP_DIR/USAGE "PROGRAM_NAME" "$pgm";;
	esac
done
shift $(( $OPTIND - 1 ))

#
# Initialize
#
f_dialog_title "$msg_system_console_keymap"
f_dialog_backtitle "${ipgm:+bsdconfig }$pgm"
f_mustberoot_init

#
# Launch application main menu
#
while :; do
	dialog_menu_main || f_die
	f_dialog_menutag_fetch mtag

	#
	# Reverse the users choice into the variable name
	#
	keymap_name=
	mtag="${mtag# }" # remove single leading-space if-present
	for name in $KEYMAP_NAMES; do
		if [ "$( eval echo \"\$msg_$name\" )" = "$mtag" ]; then
			keymap_name="$name"
			break
		fi
	done

	[ "$keymap_name" ] || continue

	case "$keymap_name" in
	belgian)
		f_sysrc_set keymap "be.iso" || f_die
		break ;;
	brazil_cp850)
		f_sysrc_set keymap "br275.cp850" || f_die
		break ;;
	brazil_iso)
		f_sysrc_set keymap "br275.iso" || f_die
		break ;;
	brazil_iso_accent)
		f_sysrc_set keymap "br275.iso.acc" || f_die
		break ;;
	bulgarian_bds)
		f_sysrc_set keymap "bg.bds.ctrlcaps" || f_die
		break ;;
	bulgarian_phonetic)
		f_sysrc_set keymap "bg.phonetic.ctrlcaps" || f_die
		break ;;
	central_european_iso)
		f_sysrc_set keymap "ce.iso2" || f_die
		break ;;
	croatian_iso)
		f_sysrc_set keymap "hr.iso" || f_die
		break ;;
	czech_iso_accent)
		f_sysrc_set keymap "cs.latin2.qwertz" || f_die
		break ;;
	danish_cp865)
		f_sysrc_set keymap "danish.cp865" || f_die
		break ;;
	danish_iso)
		f_sysrc_set keymap "danish.iso" || f_die
		break ;;
	estonian_cp850)
		f_sysrc_set keymap "estonian.cp850" || f_die
		break ;;
	estonian_iso)
		f_sysrc_set keymap "estonian.iso" || f_die
		break ;;
	estonian_iso_15)
		f_sysrc_set keymap "estonian.iso15" || f_die
		break ;;
	finnish_cp850)
		f_sysrc_set keymap "finnish.cp850" || f_die
		break ;;
	finnish_iso)
		f_sysrc_set keymap "finnish.iso" || f_die
		break ;;
	french_iso)
		f_sysrc_set keymap "fr.iso" || f_die
		break ;;
	french_iso_accent)
		f_sysrc_set keymap "fr.iso.acc" || f_die
		break ;;
	french_iso_macbook)
		f_sysrc_set keymap "fr.macbook.acc" || f_die
		break ;;
	german_cp850)
		f_sysrc_set keymap "german.cp850" || f_die
		break ;;
	german_iso)
		f_sysrc_set keymap "german.iso" || f_die
		break ;;
	greek_101)
		f_sysrc_set keymap "gr.us101.acc" || f_die
		break ;;
	greek_104)
		f_sysrc_set keymap "el.iso07" || f_die
		break ;;
	greek_elot)
		f_sysrc_set keymap "gr.elot.acc" || f_die
		break ;;
	hungarian_101)
		f_sysrc_set keymap "hu.iso2.101keys" || f_die
		break ;;
	hungarian_102)
		f_sysrc_set keymap "hu.iso2.102keys" || f_die
		break ;;
	icelandic)
		f_sysrc_set keymap "icelandic.iso" || f_die
		break ;;
	icelandic_accent)
		f_sysrc_set keymap "icelandic.iso.acc" || f_die
		break ;;
	italian)
		f_sysrc_set keymap "it.iso" || f_die
		break ;;
	japanese_106)
		f_sysrc_set keymap "jp.106" || f_die
		break ;;
	latin_american)
		f_sysrc_set keymap "latinamerican" || f_die
		break ;;
	latin_american_accent)
		f_sysrc_set keymap "latinamerican.iso.acc" || f_die
		break ;;
	norway_iso)
		f_sysrc_set keymap "norwegian.iso" || f_die
		break ;;
	polish_iso)
		f_sysrc_set keymap "pl_PL.ISO8859-2" || f_die
		break ;;
	portuguese)
		f_sysrc_set keymap "pt.iso" || f_die
		break ;;
	portuguese_accent)
		f_sysrc_set keymap "pt.iso.acc" || f_die
		break ;;
	russia_koi8_r)
		f_sysrc_set keymap "ru.koi8-r" || f_die
		break ;;
	slovak) 
		f_sysrc_set keymap "sk.iso2" || f_die
		break ;;
	slovenian)
		f_sysrc_set keymap "si.iso" || f_die
		break ;;
	spanish)
		f_sysrc_set keymap "spanish.iso" || f_die
		break ;;
	spanish_accent)
		f_sysrc_set keymap "spanish.iso.acc" || f_die
		break ;;
	swedish_cp850)
		f_sysrc_set keymap "swedish.cp850" || f_die
		break ;;
	swedish_iso)
		f_sysrc_set keymap "swedish.iso" || f_die
		break ;;
	swiss_french_cp850)
		f_sysrc_set keymap "swissfrench.cp850" || f_die
		break ;;
	swiss_french_iso)
		f_sysrc_set keymap "swissfrench.iso" || f_die
		break ;;
	swiss_french_iso_accent)
		f_sysrc_set keymap "swissfrench.iso.acc" || f_die
		break ;;
	swiss_german_cp850)
		f_sysrc_set keymap "swissgerman.cp850" || f_die
		break ;;
	swiss_german_iso)
		f_sysrc_set keymap "swissgerman.iso" || f_die
		break ;;
	swiss_german_iso_accent)
		f_sysrc_set keymap "swissgerman.iso.acc" || f_die
		break ;;
	uk_cp850)
		f_sysrc_set keymap "uk.cp850" || f_die
		break ;;
	uk_iso)
		f_sysrc_set keymap "uk.iso" || f_die
		break ;;
	ukrainian_koi8_u)
		f_sysrc_set keymap "ua.koi8-u" || f_die
		break ;;
	ukrainian_koi8_u_koi8_r)
		f_sysrc_set keymap "ua.koi8-u.shift.alt" || f_die
		break ;;
	usa_capslock_ctrl)
		f_sysrc_set keymap "us.pc-ctrl" || f_die
		break ;;
	usa_dvorak)
		f_sysrc_set keymap "us.dvorak" || f_die
		break ;;
	usa_dvorak_left)
		f_sysrc_set keymap "us.dvorakl" || f_die
		break ;;
	usa_dvorak_right)
		f_sysrc_set keymap "us.dvorakr" || f_die
		break ;;
	usa_emacs)
		f_sysrc_set keymap "us.emacs" || f_die
		break ;;
	usa_iso)
		f_sysrc_set keymap "us.iso" || f_die
		break ;;
	usa_unix)
		f_sysrc_set keymap "us.unix" || f_die
		break ;;
	esac
done

exit $SUCCESS

################################################################################
# END
################################################################################