#!/bin/sh
# mk_modmap
# Tries to translate a keytable file into a file parseable by xmodmap
#
# This is a hack, and has a lot of magic numbers and names hardcoded
# into it. Suggestions on how to avoid this are welcome.
#
# Kjetil T. Homme, University of Oslo 1993
# <kjetilho@ifi.uio.no>
#
# Added support for BackSpace, dead keys, Cyrillic, Greek and Hebrew keysysms
# Pablo Saratxaga <srtxg@chanae.stben.be> - May 1997
#
# Added support for keys found in Microsoft keyboards, Compose keysym
# (translates to Multi_key in X11) and for numeric hexadecimal values.
# Pablo Saratxaga <srtxg@f2219.n293.z2.fidonet.org> - Jun 1997

case $1 in
	-v*)	verbose=1; shift ;;
esac

if test ! -f /usr/include/X11/X.h; then
	echo Make sure you have a link to you X include files called
	echo /usr/include/X11 first.
	exit 1
fi

cat <<__EOH__
! Converted keytable file to xmodmap file
! with `basename $0` by `whoami`@`hostname` `date`
clear Mod1
clear Mod2
__EOH__

awk -F'#' '
	/[a-z]+.*keycode/ { next }
	/^[ \t]*$/ { next }
	/^string/ { next }
	{ sub("^[ \t]*", "") }
	NF > 1 {
		printf("!");
		for (i = 2; i <= NF; i++) {
			printf(" " $i);
			$i = "";
		}
		print "";
		if ($1 == "")
			next;
	}
	{ print }
' "$@" | awk -v verbose=$verbose '
	BEGIN {
		while (getline < "/usr/include/X11/keysymdef.h" == 1) {
			if ($0 ~ /XK_/) {
				sub(/.*XK_/, "");
				sub(/[\t ].*/, "");
				valid[$0] = 1;
			}
		}
		valid["X386Sys_Req"] = 1;
		valid["BackSpace"] = 1;

		shifts["Control"] = shifts["Shift"] = 1;

		shift_keys[29]  = "Control_L";
		shift_keys[97]  = "Control_R";
		shift_keys[42]  = "Shift_L";
		shift_keys[54]  = "Shift_R";

		trans_keys[ 96] = 108; # KP_Enter
		trans_keys[ 97] = 109; # Control_R
		trans_keys[ 98] = 112; # KP_Divide
		trans_keys[100] = 113; # Mode_switch (AltGr)
		trans_keys[101] = 114; # Break
		trans_keys[103] =  98; # Up
		trans_keys[104] =  99; # Prior
		trans_keys[105] = 100; # Left
		trans_keys[106] = 102; # Right
		trans_keys[108] = 104; # Down
		trans_keys[109] = 105; # Next
		trans_keys[110] = 106; # Insert
		trans_keys[111] = 107; # Delete
		trans_keys[125] = 115; # left windows key (MS keyboards)
		trans_keys[126] = 116; # right windows key (MS keyboards)
		trans_keys[127] = 117; # menu key (MS keyboards)

		trans_names["Alt"]	= "Alt_L Meta_L";
		trans_names["AltGr"]	= "Mode_switch";
		trans_names["one"]	= "1";
		trans_names["two"]	= "2";
		trans_names["three"]	= "3";
		trans_names["four"]	= "4";
		trans_names["five"]	= "5";
		trans_names["six"]	= "6";
		trans_names["seven"]	= "7";
		trans_names["eight"]	= "8";
		trans_names["nine"]	= "9";
		trans_names["zero"]	= "0";
		trans_names["KP_Comma"]	= "KP_Decimal";
		trans_names["dead_tilde"]	= "dead_tilde";
		trans_names["dead_circumflex"]	= "dead_circumflex";
		trans_names["dead_acute"]	= "dead_acute";
		trans_names["dead_grave"]	= "dead_grave";
		trans_names["dead_diaeresis"]	= "dead_diaeresis";
		trans_names["dead_cedilla"]	= "dead_cedilla";
		trans_names["dead_ogonek"]	= "dead_ogonek";
		trans_names["dead_caron"]	= "dead_caron";
		trans_names["dead_breve"]	= "dead_breve";
		trans_names["dead_doubleacute"]	= "dead_doubleacute";
		trans_names["Compose"]		= "Multi_key";
#		trans_names["Last_Console"]	= "X386Sys_Req";
# Greek
		trans_names["Alphaaccent"]	= "Greek_ALPHAaccent";
		trans_names["Epsilonaccent"]	= "Greek_EPSILONaccent";
		trans_names["Etaaccent"]	= "Greek_ETAaccent";
		trans_names["Iotaaccent"]	= "Greek_IOTAaccent";
		trans_names["Iotadiaeresis"]	= "Greek_IOTAdiaeresis";
		trans_names["Omicronaccent"]	= "Greek_OMICRONaccent";
		trans_names["Upsilonaccent"]	= "Greek_UPSILONaccent";
		trans_names["Upsilondieresis"]	= "Greek_UPSILONdieresis";
		trans_names["Omegaaccent"]	= "Greek_OMEGAaccent";
		trans_names["Alpha"]	= "Greek_ALPHA";
		trans_names["Beta"]	= "Greek_BETA";
		trans_names["Gamma"]	= "Greek_GAMMA";
		trans_names["Delta"]	= "Greek_DELTA";
		trans_names["Epsilon"]	= "Greek_EPSILON";
		trans_names["Zeta"]	= "Greek_ZETA";
		trans_names["Eta"]	= "Greek_ETA";
		trans_names["Theta"]	= "Greek_THETA";
		trans_names["Iota"]	= "Greek_IOTA";
		trans_names["Kappa"]	= "Greek_KAPPA";
		trans_names["Lamda"]	= "Greek_LAMDA";
		trans_names["Lambda"]	= "Greek_LAMBDA";
		trans_names["Mu"]	= "Greek_MU";
		trans_names["Nu"]	= "Greek_NU";
		trans_names["Xi"]	= "Greek_XI";
		trans_names["Ksi"]	= "Greek_XI";
		trans_names["Omicron"]	= "Greek_OMICRON";
		trans_names["Pi"]	= "Greek_PI";
		trans_names["Rho"]	= "Greek_RHO";
		trans_names["Sigma"]	= "Greek_SIGMA";
		trans_names["Tau"]	= "Greek_TAU";
		trans_names["Upsilon"]	= "Greek_UPSILON";
		trans_names["Phi"]	= "Greek_PHI";
		trans_names["Chi"]	= "Greek_CHI";
		trans_names["Khi"]	= "Greek_CHI";
		trans_names["Psi"]	= "Greek_PSI";
		trans_names["Omega"]	= "Greek_OMEGA";
		trans_names["accent"]	= "Greek_accentdieresis";
		trans_names["horizbar"]	= "Greek_horizbar";
		trans_names["alphaaccent"]	= "Greek_alphaaccent";
		trans_names["epsilonaccent"]	= "Greek_epsilonaccent";
		trans_names["etaaccent"]	= "Greek_etaaccent";
		trans_names["iotaaccent"]	= "Greek_iotaaccent";
		trans_names["iotadieresis"]	= "Greek_iotadieresis";
		trans_names["iotaaccentdieresis"]	= "Greek_iotaaccentdieresis";
		trans_names["omicronaccent"]	= "Greek_omicronaccent";
		trans_names["upsilonaccent"]	= "Greek_upsilonaccent";
		trans_names["upsilondieresis"]	= "Greek_upsilondieresis";
		trans_names["upsilonaccentdieresis"]	= "Greek_upsilonaccentdieresis";
		trans_names["omegaaccent"]	= "Greek_omegaaccent";
		trans_names["alpha"]	= "Greek_alpha";
		trans_names["beta"]	= "Greek_beta";
		trans_names["gamma"]	= "Greek_gamma";
		trans_names["delta"]	= "Greek_delta";
		trans_names["epsilon"]	= "Greek_epsilon";
		trans_names["zeta"]	= "Greek_zeta";
		trans_names["eta"]	= "Greek_eta";
		trans_names["theta"]	= "Greek_theta";
		trans_names["iota"]	= "Greek_iota";
		trans_names["kappa"]	= "Greek_kappa";
		trans_names["lamda"]	= "Greek_lamda";
		trans_names["lambda"]	= "Greek_lambda";
		trans_names["mu"]	= "Greek_mu";
		trans_names["nu"]	= "Greek_nu";
		trans_names["xi"]	= "Greek_xi";
		trans_names["ksi"]	= "Greek_xi";
		trans_names["omicron"]	= "Greek_omicron";
		trans_names["pi"]	= "Greek_pi";
		trans_names["rho"]	= "Greek_rho";
		trans_names["sigma"]	= "Greek_sigma";
		trans_names["terminalsigma"]	= "Greek_finalsmallsigma";
		trans_names["tau"]	= "Greek_tau";
		trans_names["upsilon"]	= "Greek_upsilon";
		trans_names["phi"]	= "Greek_phi";
		trans_names["chi"]	= "Greek_chi";
		trans_names["khi"]	= "Greek_chi";
		trans_names["psi"]	= "Greek_psi";
		trans_names["omega"]	= "Greek_omega";
		trans_names["switch"]	= "Greek_switch";
# Cyrillic
		trans_names["cyrillic_capital_letter_io"]	= "Cyrillic_IO";
		trans_names["cyrillic_capital_letter_je"]	= "Cyrillic_JE";
		trans_names["cyrillic_capital_letter_lje"]	= "Cyrillic_LJE";
		trans_names["cyrillic_capital_letter_nje"]	= "Cyrillic_NJE";
		trans_names["cyrillic_capital_letter_dzhe"]	= "Cyrillic_DZHE";
		trans_names["cyrillic_capital_letter_yu"]	= "Cyrillic_YU";
		trans_names["cyrillic_capital_letter_iu"]	= "Cyrillic_YU";
		trans_names["cyrillic_capital_letter_a"]	= "Cyrillic_A";
		trans_names["cyrillic_capital_letter_be"]	= "Cyrillic_BE";
		trans_names["cyrillic_capital_letter_tse"]	= "Cyrillic_TSE";
		trans_names["cyrillic_capital_letter_de"]	= "Cyrillic_DE";
		trans_names["cyrillic_capital_letter_ie"]	= "Cyrillic_IE";
		trans_names["cyrillic_capital_letter_ef"]	= "Cyrillic_EF";
		trans_names["cyrillic_capital_letter_ghe"]	= "Cyrillic_GHE";
		trans_names["cyrillic_capital_letter_ge"]	= "Cyrillic_GHE";
		trans_names["cyrillic_capital_letter_ha"]	= "Cyrillic_HA";
		trans_names["cyrillic_capital_letter_kha"]	= "Cyrillic_HA";
		trans_names["cyrillic_capital_letter_i"]	= "Cyrillic_I";
		trans_names["cyrillic_capital_letter_ii"]	= "Cyrillic_I";
		trans_names["cyrillic_capital_letter_short_i"]	= "Cyrillic_SHORTI";
		trans_names["cyrillic_capital_letter_short_ii"]	= "Cyrillic_SHORTI";
		trans_names["cyrillic_capital_letter_ka"]	= "Cyrillic_KA";
		trans_names["cyrillic_capital_letter_el"]	= "Cyrillic_EL";
		trans_names["cyrillic_capital_letter_em"]	= "Cyrillic_EM";
		trans_names["cyrillic_capital_letter_en"]	= "Cyrillic_EN";
		trans_names["cyrillic_capital_letter_o"]	= "Cyrillic_O";
		trans_names["cyrillic_capital_letter_pe"]	= "Cyrillic_PE";
		trans_names["cyrillic_capital_letter_ya"]	= "Cyrillic_YA";
		trans_names["cyrillic_capital_letter_ia"]	= "Cyrillic_YA";
		trans_names["cyrillic_capital_letter_er"]	= "Cyrillic_ER";
		trans_names["cyrillic_capital_letter_es"]	= "Cyrillic_ES";
		trans_names["cyrillic_capital_letter_te"]	= "Cyrillic_TE";
		trans_names["cyrillic_capital_letter_u"]	= "Cyrillic_U";
		trans_names["cyrillic_capital_letter_zhe"]	= "Cyrillic_ZHE";
		trans_names["cyrillic_capital_letter_ve"]	= "Cyrillic_VE";
		trans_names["cyrillic_capital_soft_sign"]	= "Cyrillic_SOFTSIGN";
		trans_names["cyrillic_capital_letter_yeru"]	= "Cyrillic_YERU";
		trans_names["cyrillic_capital_letter_yeri"]	= "Cyrillic_YERU";
		trans_names["cyrillic_capital_letter_ze"]	= "Cyrillic_ZE";
		trans_names["cyrillic_capital_letter_sha"]	= "Cyrillic_SHA";
		trans_names["cyrillic_capital_letter_e"]	= "Cyrillic_E";
		trans_names["cyrillic_capital_letter_reversed_e"]	= "Cyrillic_E";
		trans_names["cyrillic_capital_letter_shcha"]	= "Cyrillic_SHCHA";
		trans_names["cyrillic_capital_letter_che"]	= "Cyrillic_CHE";
		trans_names["cyrillic_capital_hard_sign"]	= "Cyrillic_HARDSIGN";
		trans_names["cyrillic_small_letter_io"]	= "Cyrillic_io";
		trans_names["cyrillic_small_letter_je"]	= "Cyrillic_je";
		trans_names["cyrillic_small_letter_lje"]	= "Cyrillic_lje";
		trans_names["cyrillic_small_letter_nje"]	= "Cyrillic_nje";
		trans_names["cyrillic_small_letter_dzhe"]	= "Cyrillic_dzhe";
		trans_names["cyrillic_small_letter_yu"]	= "Cyrillic_yu";
		trans_names["cyrillic_small_letter_iu"]	= "Cyrillic_yu";
		trans_names["cyrillic_small_letter_a"]	= "Cyrillic_a";
		trans_names["cyrillic_small_letter_be"]	= "Cyrillic_be";
		trans_names["cyrillic_small_letter_tse"]	= "Cyrillic_tse";
		trans_names["cyrillic_small_letter_de"]	= "Cyrillic_de";
		trans_names["cyrillic_small_letter_ie"]	= "Cyrillic_ie";
		trans_names["cyrillic_small_letter_ef"]	= "Cyrillic_ef";
		trans_names["cyrillic_small_letter_ghe"]	= "Cyrillic_ghe";
		trans_names["cyrillic_small_letter_ge"]	= "Cyrillic_ghe";
		trans_names["cyrillic_small_letter_ha"]	= "Cyrillic_ha";
		trans_names["cyrillic_small_letter_kha"]	= "Cyrillic_ha";
		trans_names["cyrillic_small_letter_i"]	= "Cyrillic_i";
		trans_names["cyrillic_small_letter_ii"]	= "Cyrillic_i";
		trans_names["cyrillic_small_letter_short_i"]	= "Cyrillic_shorti";
		trans_names["cyrillic_small_letter_short_ii"]	= "Cyrillic_shorti";
		trans_names["cyrillic_small_letter_ka"]	= "Cyrillic_ka";
		trans_names["cyrillic_small_letter_el"]	= "Cyrillic_el";
		trans_names["cyrillic_small_letter_em"]	= "Cyrillic_em";
		trans_names["cyrillic_small_letter_en"]	= "Cyrillic_en";
		trans_names["cyrillic_small_letter_o"]	= "Cyrillic_o";
		trans_names["cyrillic_small_letter_pe"]	= "Cyrillic_pe";
		trans_names["cyrillic_small_letter_ya"]	= "Cyrillic_ya";
		trans_names["cyrillic_small_letter_ia"]	= "Cyrillic_ya";
		trans_names["cyrillic_small_letter_er"]	= "Cyrillic_er";
		trans_names["cyrillic_small_letter_es"]	= "Cyrillic_es";
		trans_names["cyrillic_small_letter_te"]	= "Cyrillic_te";
		trans_names["cyrillic_small_letter_u"]	= "Cyrillic_u";
		trans_names["cyrillic_small_letter_zhe"]	= "Cyrillic_zhe";
		trans_names["cyrillic_small_letter_ve"]	= "Cyrillic_ve";
		trans_names["cyrillic_small_soft_sign"]	= "Cyrillic_softsign";
		trans_names["cyrillic_small_letter_yeru"]	= "Cyrillic_yeru";
		trans_names["cyrillic_small_letter_yeri"]	= "Cyrillic_yeru";
		trans_names["cyrillic_small_letter_ze"]	= "Cyrillic_ze";
		trans_names["cyrillic_small_letter_sha"]	= "Cyrillic_sha";
		trans_names["cyrillic_small_letter_e"]	= "Cyrillic_e";
		trans_names["cyrillic_small_letter_reversed_e"]	= "Cyrillic_e";
		trans_names["cyrillic_small_letter_shcha"]	= "Cyrillic_shcha";
		trans_names["cyrillic_small_letter_che"]	= "Cyrillic_che";
		trans_names["cyrillic_small_hard_sign"]	= "Cyrillic_hardsign";
		trans_names["serbocroatian_cyrillic_capital_letter_dje"]	= "Serbian_DJE";
		trans_names["serbocroatian_cyrillic_capital_letter_je"]	= "Serbian_JE";
		trans_names["serbocroatian_cyrillic_capital_letter_lje"]	= "Serbian_LJE";
		trans_names["serbocroatian_cyrillic_capital_letter_nje"]	= "Serbian_NJE";
		trans_names["serbocroatian_cyrillic_capital_letter_tshe"]	= "Serbian_TSHE";
		trans_names["serbocroatian_cyrillic_capital_letter_dze"]	= "Serbian_DZE";
		trans_names["serbocroatian_cyrillic_small_letter_dje"]	= "Serbian_dje";
		trans_names["serbocroatian_cyrillic_small_letter_je"]	= "Serbian_je";
		trans_names["serbocroatian_cyrillic_small_letter_lje"]	= "Serbian_lje";
		trans_names["serbocroatian_cyrillic_small_letter_nje"]	= "Serbian_nje";
		trans_names["serbocroatian_cyrillic_small_letter_tshe"]	= "Serbian_tshe";
		trans_names["serbocroatian_cyrillic_small_letter_dze"]	= "Serbian_dze";
		trans_names["macedonian_cyrillic_capital_letter_gje"]	= "Macedonia_GJE";
		trans_names["macedonian_cyrillic_capital_letter_dze"]	= "Macedonia_DSE";
		trans_names["macedonian_cyrillic_capital_letter_kje"]	= "Macedonia_KJE";
		trans_names["macedonian_cyrillic_small_letter_gje"]	= "Macedonia_gje";
		trans_names["macedonian_cyrillic_small_letter_dze"]	= "Macedonia_dse";
		trans_names["macedonian_cyrillic_small_letter_kje"]	= "Macedonia_kje";
		trans_names["ukrainian_cyrillic_capital_letter_ie"]	= "Ukrainian_JE";
		trans_names["ukrainian_cyrillic_capital_letter_i"]	= "Ukrainian_I";
		trans_names["ukrainian_cyrillic_capital_letter_yi"]	= "Ukrainian_YI";
		trans_names["ukrainian_cyrillic_small_letter_ie"]	= "Ukrainian_ie";
		trans_names["ukrainian_cyrillic_small_letter_i"]	= "Ukrainian_i";
		trans_names["ukrainian_cyrillic_small_letter_yi"]	= "Ukrainian_yi";
		trans_names["bielorussian_cyrillic_capital_letter_short_u"]	= "Byelorussian_SHORTU";
		trans_names["bielorussian_cyrillic_capital_letter_i"]	= "Ukrainian_I";
		trans_names["bielorussian_cyrillic_small_letter_short_u"]	= "Byelorussian_shortu";
		trans_names["bielorussian_cyrillic_small_letter_i"]	= "Ukrainian_i";
# Hebrew
		trans_names["doubleunderscore"]	= "hebrew_doublelowline";
		trans_names["alef"]	= "hebrew_aleph";
		trans_names["bet"]	= "hebrew_bet";
		trans_names["gimel"]	= "hebrew_gimel";
		trans_names["dalet"]	= "hebrew_dalet";
		trans_names["he"]	= "hebrew_he";
		trans_names["vav"]	= "hebrew_waw";
		trans_names["zayin"]	= "hebrew_zain";
		trans_names["het"]	= "hebrew_chet";
		trans_names["tet"]	= "hebrew_tet";
		trans_names["yod"]	= "hebrew_yod";
		trans_names["finalkaf"]	= "hebrew_finalkaph";
		trans_names["kaf"]	= "hebrew_kaph";
		trans_names["lamed"]	= "hebrew_lamed";
		trans_names["finalmem"]	= "hebrew_finalmem";
		trans_names["mem"]	= "hebrew_mem";
		trans_names["finalnun"]	= "hebrew_finalnun";
		trans_names["nun"]	= "hebrew_nun";
		trans_names["samekh"]	= "hebrew_samech";
		trans_names["ayin"]	= "hebrew_ayin";
		trans_names["finalpe"]	= "hebrew_finalpe";
		trans_names["pe"]	= "hebrew_pe";
		trans_names["finaltsadi"]	= "hebrew_finalzade";
		trans_names["tsadi"]	= "hebrew_zade";
		trans_names["qof"]	= "hebrew_qoph";
		trans_names["resh"]	= "hebrew_resh";
		trans_names["shin"]	= "hebrew_shin";
		trans_names["tav"]	= "hebrew_taw";
	}
	$1 == "keycode" {
		output = "";
		keycode = $2;
		i = ($3 == "=") ? 4 : 3;
		for ( ; i <= NF; i++) {
			sub(/^\+/, "", $i);
			n = $i;
			if ($i in shifts)
				n = shift_keys[keycode];
			else if ($i in trans_names)
				n = trans_names[$i];

			if (n in valid || n in valid || $i in trans_names)
				output = output " " n;
			else if (n ~ /0x[0-9a-fA-F]*/)
				output = output " " n;
			else
				msg("Skipped " $i);
		}

		if (keycode in trans_keys)
			keycode = trans_keys[keycode];
		else
			keycode += 8;

		if (keycode > 117)
			msg("Skipped keycode " keycode-8 ": " output);
	 	else if (output)
			printf("keycode %3d = %s\n", keycode, output);
		next;
	}
	{ print }
	function msg(m) { if (verbose) print m > "/dev/stderr"; }'

cat <<__EOH__
add Mod1 = Alt_L
add Mod2 = Mode_switch
__EOH__