xref: /freebsd/usr.sbin/bsdconfig/console/keymap (revision e9ac41698b2f322d55ccf9da50a3596edb2c1800)
1#!/bin/sh
2#-
3# Copyright (c) 2012-2013 Devin Teske
4# All rights reserved.
5#
6# Redistribution and use in source and binary forms, with or without
7# modification, are permitted provided that the following conditions
8# are met:
9# 1. Redistributions of source code must retain the above copyright
10#    notice, this list of conditions and the following disclaimer.
11# 2. Redistributions in binary form must reproduce the above copyright
12#    notice, this list of conditions and the following disclaimer in the
13#    documentation and/or other materials provided with the distribution.
14#
15# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25# SUCH DAMAGE.
26#
27#
28############################################################ INCLUDES
29
30BSDCFG_SHARE="/usr/share/bsdconfig"
31. $BSDCFG_SHARE/common.subr || exit 1
32f_dprintf "%s: loading includes..." "$0"
33f_include $BSDCFG_SHARE/dialog.subr
34f_include $BSDCFG_SHARE/mustberoot.subr
35f_include $BSDCFG_SHARE/sysrc.subr
36
37BSDCFG_LIBE="/usr/libexec/bsdconfig" APP_DIR="080.console"
38f_include_lang $BSDCFG_LIBE/$APP_DIR/include/messages.subr
39
40f_index_menusel_keyword $BSDCFG_LIBE/$APP_DIR/INDEX "$pgm" ipgm &&
41	pgm="${ipgm:-$pgm}"
42
43############################################################ CONFIGURATION
44
45#
46# List of keymap names
47#
48KEYMAP_NAMES="
49	belgian                  brazil_cp850             brazil_iso
50	brazil_iso_accent        bulgarian_bds            bulgarian_phonetic
51	central_european_iso     croatian_iso             czech_iso_accent
52	danish_cp865             danish_iso               estonian_cp850
53	estonian_iso             estonian_iso_15          finnish_cp850
54	finnish_iso              french_iso               french_iso_accent
55	french_iso_macbook       german_cp850             german_iso
56	greek_101                greek_104                greek_elot
57	hungarian_101            hungarian_102            icelandic
58	icelandic_accent         italian                  japanese_106
59	latin_american           latin_american_accent    norway_iso
60	polish_iso               portuguese               portuguese_accent
61	russia_koi8_r            slovak                   slovenian
62	spanish                  spanish_accent           swedish_cp850
63	swedish_iso              swiss_french_cp850       swiss_french_iso
64	swiss_french_iso_accent  swiss_german_cp850       swiss_german_iso
65	swiss_german_iso_accent  uk_cp850                 uk_iso
66	ukrainian_koi8_u         ukrainian_koi8_u_koi8_r  usa_capslock_ctrl
67	usa_dvorak               usa_dvorak_left          usa_dvorak_right
68	usa_emacs                usa_iso                  usa_unix
69" # END-QUOTE
70
71############################################################ FUNCTIONS
72
73# dialog_menu_main
74#
75# Display the dialog(1)-based application main menu.
76#
77dialog_menu_main()
78{
79	local prompt="$msg_keymap_menu_text"
80	local menu_list defaultitem= # Calculated below
81	local hline="$hline_choose_a_keyboard_map"
82
83	#
84	# Export variables for awk(1) ENVIRON visibility
85	#
86	local name
87	for name in $KEYMAP_NAMES; do
88		export msg_$name msg_${name}_desc
89	done
90
91	#
92	# Generate a sorted list of keymaps. If the first letter of the keymap
93	# name is unique (case-insensitive) then it is used as the tag to allow
94	# the user to jump to that entry.
95	#
96	menu_list=$(
97		for name in $KEYMAP_NAMES; do
98			eval echo \"\$msg_$name\" msg_$name
99		done | sort | awk 'BEGIN { prefix = "" }
100		{
101			cur_prefix = tolower(substr(ENVIRON[$NF], 1, 1))
102			printf "'\''"
103			if ( prefix != cur_prefix )
104				prefix = cur_prefix
105			else
106				printf " "
107			printf "%s'\'' '\''%s'\''\n",
108			       ENVIRON[$NF], ENVIRON[$NF"_desc"]
109		}'
110	)
111
112	local height width rows
113	eval f_dialog_menu_size height width rows \
114	                        \"\$DIALOG_TITLE\"     \
115	                        \"\$DIALOG_BACKTITLE\" \
116	                        \"\$prompt\"           \
117	                        \"\$hline\"            \
118	                        $menu_list
119
120	case "$( f_sysrc_get keymap )" in
121	be.iso)                defaultitem="$msg_belgian"                 ;;
122	br275.cp850)           defaultitem="$msg_brazil_cp850"            ;;
123	br275.iso)             defaultitem="$msg_brazil_iso"              ;;
124	br275.iso.acc)         defaultitem="$msg_brazil_iso_accent"       ;;
125	bg.bds.ctrlcaps)       defaultitem="$msg_bulgarian_bds"           ;;
126	bg.phonetic.ctrlcaps)  defaultitem="$msg_bulgarian_phonetic"      ;;
127	ce.iso2)               defaultitem="$msg_central_european_iso"    ;;
128	hr.iso)                defaultitem="$msg_croatian_iso"            ;;
129	cs.latin2.qwertz)      defaultitem="$msg_czech_iso_accent"        ;;
130	danish.cp865)          defaultitem="$msg_danish_cp865"            ;;
131	danish.iso)            defaultitem="$msg_danish_iso"              ;;
132	estonian.cp850)        defaultitem="$msg_estonian_cp850"          ;;
133	estonian.iso)          defaultitem="$msg_estonian_iso"            ;;
134	estonian.iso15)        defaultitem="$msg_estonian_iso_15"         ;;
135	finnish.cp850)         defaultitem="$msg_finnish_cp850"           ;;
136	finnish.iso)           defaultitem="$msg_finnish_iso"             ;;
137	fr.iso)                defaultitem="$msg_french_iso"              ;;
138	fr.iso.acc)            defaultitem="$msg_french_iso_accent"       ;;
139	fr.macbook.acc)        defaultitem="$msg_french_iso_macbook"      ;;
140	german.cp850)          defaultitem="$msg_german_cp850"            ;;
141	german.iso)            defaultitem="$msg_german_iso"              ;;
142	gr.us101.acc)          defaultitem="$msg_greek_101"               ;;
143	el.iso07)              defaultitem="$msg_greek_104"               ;;
144	gr.elot.acc)           defaultitem="$msg_greek_elot"              ;;
145	hu.iso2.101keys)       defaultitem="$msg_hungarian_101"           ;;
146	hu.iso2.102keys)       defaultitem="$msg_hungarian_102"           ;;
147	icelandic.iso)         defaultitem="$msg_icelandic"               ;;
148	icelandic.iso.acc)     defaultitem="$msg_icelandic_accent"        ;;
149	it.iso)                defaultitem="$msg_italian"                 ;;
150	jp.106)                defaultitem="$msg_japanese_106"            ;;
151	latinamerican)         defaultitem="$msg_latin_american"          ;;
152	latinamerican.iso.acc) defaultitem="$msg_latin_american_accent"   ;;
153	norwegian.iso)         defaultitem="$msg_norway_iso"              ;;
154	pl_PL.ISO8859-2)       defaultitem="$msg_polish_iso"              ;;
155	pt.iso)                defaultitem="$msg_portuguese"              ;;
156	pt.iso.acc)            defaultitem="$msg_portuguese_accent"       ;;
157	ru.koi8-r)             defaultitem="$msg_russia_koi8_r"           ;;
158	sk.iso2)               defaultitem="$msg_slovak"                  ;;
159	si.iso)                defaultitem="$msg_slovenian"               ;;
160	spanish.iso)           defaultitem="$msg_spanish"                 ;;
161	spanish.iso.acc)       defaultitem="$msg_spanish_accent"          ;;
162	swedish.cp850)         defaultitem="$msg_swedish_cp850"           ;;
163	swedish.iso)           defaultitem="$msg_swedish_iso"             ;;
164	swissfrench.cp850)     defaultitem="$msg_swiss_french_cp850"      ;;
165	swissfrench.iso)       defaultitem="$msg_swiss_french_iso"        ;;
166	swissfrench.iso.acc)   defaultitem="$msg_swiss_french_iso_accent" ;;
167	swissgerman.cp850)     defaultitem="$msg_swiss_german_cp850"      ;;
168	swissgerman.iso)       defaultitem="$msg_swiss_german_iso"        ;;
169	swissgerman.iso.acc)   defaultitem="$msg_swiss_german_iso_accent" ;;
170	uk.cp850)              defaultitem="$msg_uk_cp850"                ;;
171	uk.iso)                defaultitem="$msg_uk_iso"                  ;;
172	ua.koi8-u)             defaultitem="$msg_ukrainian_koi8_u"        ;;
173	ua.koi8-u.shift.alt)   defaultitem="$msg_ukrainian_koi8_u_koi8_r" ;;
174	us.ctrl)               defaultitem="$msg_usa_capslock_ctrl"       ;;
175	us.pc-ctrl)            defaultitem="$msg_usa_capslock_ctrl"       ;;
176	us.dvorak)             defaultitem="$msg_usa_dvorak"              ;;
177	us.dvorakl)            defaultitem="$msg_usa_dvorak_left"         ;;
178	us.dvorakr)            defaultitem="$msg_usa_dvorak_right"        ;;
179	us.emacs)              defaultitem="$msg_usa_emacs"               ;;
180	us.iso)                defaultitem="$msg_usa_iso"                 ;;
181	us.unix)               defaultitem="$msg_usa_unix"                ;;
182	esac
183
184	# The defaultitem may have to be indented to match the menu_list
185	if [ "$defaultitem" ]; then
186		( eval set -- $menu_list
187		  while [ $# -gt 0 ]; do
188		  	[ "$defaultitem" = "$1" ] && break
189		  	[ " $defaultitem" = "$1" ] && exit 0
190		  	shift 2 # tag/item
191		  done
192		  exit 1 # No modification needed
193		) && defaultitem=" $defaultitem"
194	fi
195
196	local menu_choice
197	menu_choice=$( eval $DIALOG \
198		--title \"\$DIALOG_TITLE\"         \
199		--backtitle \"\$DIALOG_BACKTITLE\" \
200		--hline \"\$hline\"                \
201		--ok-label \"\$msg_ok\"            \
202		--cancel-label \"\$msg_cancel\"    \
203		--default-item \"\$defaultitem\"   \
204		--menu \"\$prompt\"                \
205		$height $width $rows               \
206		$menu_list                         \
207		2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD
208	)
209	local retval=$?
210	f_dialog_menutag_store -s "$menu_choice"
211	return $retval
212}
213
214############################################################ MAIN
215
216# Incorporate rc-file if it exists
217[ -f "$HOME/.bsdconfigrc" ] && f_include "$HOME/.bsdconfigrc"
218
219#
220# Process command-line arguments
221#
222while getopts h$GETOPTS_STDARGS flag; do
223	case "$flag" in
224	h|\?) f_usage $BSDCFG_LIBE/$APP_DIR/USAGE "PROGRAM_NAME" "$pgm" ;;
225	esac
226done
227shift $(( $OPTIND - 1 ))
228
229#
230# Initialize
231#
232f_dialog_title "$msg_system_console_keymap"
233f_dialog_backtitle "${ipgm:+bsdconfig }$pgm"
234f_mustberoot_init
235
236#
237# Launch application main menu
238#
239while :; do
240	dialog_menu_main || f_die
241	f_dialog_menutag_fetch mtag
242
243	#
244	# Reverse the users choice into the variable name
245	#
246	keymap_name=
247	mtag="${mtag# }" # remove single leading-space if-present
248	for name in $KEYMAP_NAMES; do
249		debug= f_getvar msg_$name msg
250		[ "$msg" = "$mtag" ] && keymap_name="$name" break
251	done
252
253	[ "$keymap_name" ] || continue
254
255	keymap_to_set=
256	case "$keymap_name" in
257	belgian)                 keymap_to_set="be.iso"                ;;
258	brazil_cp850)            keymap_to_set="br275.cp850"           ;;
259	brazil_iso)              keymap_to_set="br275.iso"             ;;
260	brazil_iso_accent)       keymap_to_set="br275.iso.acc"         ;;
261	bulgarian_bds)           keymap_to_set="bg.bds.ctrlcaps"       ;;
262	bulgarian_phonetic)      keymap_to_set="bg.phonetic.ctrlcaps"  ;;
263	central_european_iso)    keymap_to_set="ce.iso2"               ;;
264	croatian_iso)            keymap_to_set="hr.iso"                ;;
265	czech_iso_accent)        keymap_to_set="cs.latin2.qwertz"      ;;
266	danish_cp865)            keymap_to_set="danish.cp865"          ;;
267	danish_iso)              keymap_to_set="danish.iso"            ;;
268	estonian_cp850)          keymap_to_set="estonian.cp850"        ;;
269	estonian_iso)            keymap_to_set="estonian.iso"          ;;
270	estonian_iso_15)         keymap_to_set="estonian.iso15"        ;;
271	finnish_cp850)           keymap_to_set="finnish.cp850"         ;;
272	finnish_iso)             keymap_to_set="finnish.iso"           ;;
273	french_iso)              keymap_to_set="fr.iso"                ;;
274	french_iso_accent)       keymap_to_set="fr.iso.acc"            ;;
275	french_iso_macbook)      keymap_to_set="fr.macbook.acc"        ;;
276	german_cp850)            keymap_to_set="german.cp850"          ;;
277	german_iso)              keymap_to_set="german.iso"            ;;
278	greek_101)               keymap_to_set="gr.us101.acc"          ;;
279	greek_104)               keymap_to_set="el.iso07"              ;;
280	greek_elot)              keymap_to_set="gr.elot.acc"           ;;
281	hungarian_101)           keymap_to_set="hu.iso2.101keys"       ;;
282	hungarian_102)           keymap_to_set="hu.iso2.102keys"       ;;
283	icelandic)               keymap_to_set="icelandic.iso"         ;;
284	icelandic_accent)        keymap_to_set="icelandic.iso.acc"     ;;
285	italian)                 keymap_to_set="it.iso"                ;;
286	japanese_106)            keymap_to_set="jp.106"                ;;
287	latin_american)          keymap_to_set="latinamerican"         ;;
288	latin_american_accent)   keymap_to_set="latinamerican.iso.acc" ;;
289	norway_iso)              keymap_to_set="norwegian.iso"         ;;
290	polish_iso)              keymap_to_set="pl_PL.ISO8859-2"       ;;
291	portuguese)              keymap_to_set="pt.iso"                ;;
292	portuguese_accent)       keymap_to_set="pt.iso.acc"            ;;
293	russia_koi8_r)           keymap_to_set="ru.koi8-r"             ;;
294	slovak)                  keymap_to_set="sk.iso2"               ;;
295	slovenian)               keymap_to_set="si.iso"                ;;
296	spanish)                 keymap_to_set="spanish.iso"           ;;
297	spanish_accent)          keymap_to_set="spanish.iso.acc"       ;;
298	swedish_cp850)           keymap_to_set="swedish.cp850"         ;;
299	swedish_iso)             keymap_to_set="swedish.iso"           ;;
300	swiss_french_cp850)      keymap_to_set="swissfrench.cp850"     ;;
301	swiss_french_iso)        keymap_to_set="swissfrench.iso"       ;;
302	swiss_french_iso_accent) keymap_to_set="swissfrench.iso.acc"   ;;
303	swiss_german_cp850)      keymap_to_set="swissgerman.cp850"     ;;
304	swiss_german_iso)        keymap_to_set="swissgerman.iso"       ;;
305	swiss_german_iso_accent) keymap_to_set="swissgerman.iso.acc"   ;;
306	uk_cp850)                keymap_to_set="uk.cp850"              ;;
307	uk_iso)                  keymap_to_set="uk.iso"                ;;
308	ukrainian_koi8_u)        keymap_to_set="ua.koi8-u"             ;;
309	ukrainian_koi8_u_koi8_r) keymap_to_set="ua.koi8-u.shift.alt"   ;;
310	usa_capslock_ctrl)
311		case "$( sysctl -n kern.vty )" in
312		vt)              keymap_to_set="us.ctrl"               ;;
313		*)               keymap_to_set="us.pc-ctrl"            ;;
314		esac
315		;;
316	usa_dvorak)              keymap_to_set="us.dvorak"             ;;
317	usa_dvorak_left)         keymap_to_set="us.dvorakl"            ;;
318	usa_dvorak_right)        keymap_to_set="us.dvorakr"            ;;
319	usa_emacs)               keymap_to_set="us.emacs"              ;;
320	usa_iso)                 keymap_to_set="us.iso"                ;;
321	usa_unix)                keymap_to_set="us.unix"               ;;
322	esac
323
324	if [ "$keymap_to_set" ]; then
325		f_eval_catch "$0" f_sysrc_set \
326			'f_sysrc_set keymap "%s"' "$keymap_to_set" || f_die
327		break
328	else
329		f_die 1 "$msg_unknown_keymap"
330	fi
331done
332
333exit $SUCCESS
334
335################################################################################
336# END
337################################################################################
338