keymaps/i386/mk_modmap

   1 #!/bin/sh
   2 # mk_modmap
   3 # Tries to translate a keytable file into a file parseable by xmodmap
   4 #
   5 # This is a hack, and has a lot of magic numbers and names hardcoded
   6 # into it. Suggestions on how to avoid this are welcome.
   7 #
   8 # Kjetil T. Homme, University of Oslo 1993
   9 # <kjetilho@ifi.uio.no>
  10 #
  11 # Added support for BackSpace, dead keys, Cyrillic, Greek and Hebrew keysysms
  12 # Pablo Saratxaga <srtxg@chanae.stben.be> - May 1997
  13 #
  14 # Added support for keys found in Microsoft keyboards, Compose keysym
  15 # (translates to Multi_key in X11) and for numeric hexadecimal values.
  16 # Pablo Saratxaga <srtxg@f2219.n293.z2.fidonet.org> - Jun 1997
  17
  18 case $1 in
  19         -v*)    verbose=1; shift ;;
  20 esac
  21
  22 if test ! -f /usr/include/X11/X.h; then
  23         echo Make sure you have a link to you X include files called
  24         echo /usr/include/X11 first.
  25         exit 1
  26 fi
  27
  28 cat <<__EOH__
  29 ! Converted keytable file to xmodmap file
  30 ! with `basename $0` by `whoami`@`hostname` `date`
  31 clear Mod1
  32 clear Mod2
  33 __EOH__
  34
  35 awk -F'#' '
  36         /[a-z]+.*keycode/ { next }
  37         /^[ \t]*$/ { next }
  38         /^string/ { next }
  39         { sub("^[ \t]*", "") }
  40         NF > 1 {
  41                 printf("!");
  42                 for (i = 2; i <= NF; i++) {
  43                         printf(" " $i);
  44                         $i = "";
  45                 }
  46                 print "";
  47                 if ($1 == "")
  48                         next;
  49         }
  50         { print }
  51 ' "$@" | awk -v verbose=$verbose '
  52         BEGIN {
  53                 while (getline < "/usr/include/X11/keysymdef.h" == 1) {
  54                         if ($0 ~ /XK_/) {
  55                                 sub(/.*XK_/, "");
  56                                 sub(/[\t ].*/, "");
  57                                 valid[$0] = 1;
  58                         }
  59                 }
  60                 valid["X386Sys_Req"] = 1;
  61                 valid["BackSpace"] = 1;
  62
  63                 shifts["Control"] = shifts["Shift"] = 1;
  64
  65                 shift_keys[29]  = "Control_L";
  66                 shift_keys[97]  = "Control_R";
  67                 shift_keys[42]  = "Shift_L";
  68                 shift_keys[54]  = "Shift_R";
  69
  70                 trans_keys[ 96] = 108; # KP_Enter
  71                 trans_keys[ 97] = 109; # Control_R
  72                 trans_keys[ 98] = 112; # KP_Divide
  73                 trans_keys[100] = 113; # Mode_switch (AltGr)
  74                 trans_keys[101] = 114; # Break
  75                 trans_keys[103] =  98; # Up
  76                 trans_keys[104] =  99; # Prior
  77                 trans_keys[105] = 100; # Left
  78                 trans_keys[106] = 102; # Right
  79                 trans_keys[108] = 104; # Down
  80                 trans_keys[109] = 105; # Next
  81                 trans_keys[110] = 106; # Insert
  82                 trans_keys[111] = 107; # Delete
  83                 trans_keys[125] = 115; # left windows key (MS keyboards)
  84                 trans_keys[126] = 116; # right windows key (MS keyboards)
  85                 trans_keys[127] = 117; # menu key (MS keyboards)
  86
  87                 trans_names["Alt"]      = "Alt_L Meta_L";
  88                 trans_names["AltGr"]    = "Mode_switch";
  89                 trans_names["one"]      = "1";
  90                 trans_names["two"]      = "2";
  91                 trans_names["three"]    = "3";
  92                 trans_names["four"]     = "4";
  93                 trans_names["five"]     = "5";
  94                 trans_names["six"]      = "6";
  95                 trans_names["seven"]    = "7";
  96                 trans_names["eight"]    = "8";
  97                 trans_names["nine"]     = "9";
  98                 trans_names["zero"]     = "0";
  99                 trans_names["KP_Comma"] = "KP_Decimal";
 100                 trans_names["dead_tilde"]       = "dead_tilde";
 101                 trans_names["dead_circumflex"]  = "dead_circumflex";
 102                 trans_names["dead_acute"]       = "dead_acute";
 103                 trans_names["dead_grave"]       = "dead_grave";
 104                 trans_names["dead_diaeresis"]   = "dead_diaeresis";
 105                 trans_names["dead_cedilla"]     = "dead_cedilla";
 106                 trans_names["dead_ogonek"]      = "dead_ogonek";
 107                 trans_names["dead_caron"]       = "dead_caron";
 108                 trans_names["dead_breve"]       = "dead_breve";
 109                 trans_names["dead_doubleacute"] = "dead_doubleacute";
 110                 trans_names["Compose"]          = "Multi_key";
 111 #               trans_names["Last_Console"]     = "X386Sys_Req";
 112 # Greek
 113                 trans_names["Alphaaccent"]      = "Greek_ALPHAaccent";
 114                 trans_names["Epsilonaccent"]    = "Greek_EPSILONaccent";
 115                 trans_names["Etaaccent"]        = "Greek_ETAaccent";
 116                 trans_names["Iotaaccent"]       = "Greek_IOTAaccent";
 117                 trans_names["Iotadiaeresis"]    = "Greek_IOTAdiaeresis";
 118                 trans_names["Omicronaccent"]    = "Greek_OMICRONaccent";
 119                 trans_names["Upsilonaccent"]    = "Greek_UPSILONaccent";
 120                 trans_names["Upsilondieresis"]  = "Greek_UPSILONdieresis";
 121                 trans_names["Omegaaccent"]      = "Greek_OMEGAaccent";
 122                 trans_names["Alpha"]    = "Greek_ALPHA";
 123                 trans_names["Beta"]     = "Greek_BETA";
 124                 trans_names["Gamma"]    = "Greek_GAMMA";
 125                 trans_names["Delta"]    = "Greek_DELTA";
 126                 trans_names["Epsilon"]  = "Greek_EPSILON";
 127                 trans_names["Zeta"]     = "Greek_ZETA";
 128                 trans_names["Eta"]      = "Greek_ETA";
 129                 trans_names["Theta"]    = "Greek_THETA";
 130                 trans_names["Iota"]     = "Greek_IOTA";
 131                 trans_names["Kappa"]    = "Greek_KAPPA";
 132                 trans_names["Lamda"]    = "Greek_LAMDA";
 133                 trans_names["Lambda"]   = "Greek_LAMBDA";
 134                 trans_names["Mu"]       = "Greek_MU";
 135                 trans_names["Nu"]       = "Greek_NU";
 136                 trans_names["Xi"]       = "Greek_XI";
 137                 trans_names["Ksi"]      = "Greek_XI";
 138                 trans_names["Omicron"]  = "Greek_OMICRON";
 139                 trans_names["Pi"]       = "Greek_PI";
 140                 trans_names["Rho"]      = "Greek_RHO";
 141                 trans_names["Sigma"]    = "Greek_SIGMA";
 142                 trans_names["Tau"]      = "Greek_TAU";
 143                 trans_names["Upsilon"]  = "Greek_UPSILON";
 144                 trans_names["Phi"]      = "Greek_PHI";
 145                 trans_names["Chi"]      = "Greek_CHI";
 146                 trans_names["Khi"]      = "Greek_CHI";
 147                 trans_names["Psi"]      = "Greek_PSI";
 148                 trans_names["Omega"]    = "Greek_OMEGA";
 149                 trans_names["accent"]   = "Greek_accentdieresis";
 150                 trans_names["horizbar"] = "Greek_horizbar";
 151                 trans_names["alphaaccent"]      = "Greek_alphaaccent";
 152                 trans_names["epsilonaccent"]    = "Greek_epsilonaccent";
 153                 trans_names["etaaccent"]        = "Greek_etaaccent";
 154                 trans_names["iotaaccent"]       = "Greek_iotaaccent";
 155                 trans_names["iotadieresis"]     = "Greek_iotadieresis";
 156                 trans_names["iotaaccentdieresis"]       = "Greek_iotaaccentdieresis";
 157                 trans_names["omicronaccent"]    = "Greek_omicronaccent";
 158                 trans_names["upsilonaccent"]    = "Greek_upsilonaccent";
 159                 trans_names["upsilondieresis"]  = "Greek_upsilondieresis";
 160                 trans_names["upsilonaccentdieresis"]    = "Greek_upsilonaccentdieresis";
 161                 trans_names["omegaaccent"]      = "Greek_omegaaccent";
 162                 trans_names["alpha"]    = "Greek_alpha";
 163                 trans_names["beta"]     = "Greek_beta";
 164                 trans_names["gamma"]    = "Greek_gamma";
 165                 trans_names["delta"]    = "Greek_delta";
 166                 trans_names["epsilon"]  = "Greek_epsilon";
 167                 trans_names["zeta"]     = "Greek_zeta";
 168                 trans_names["eta"]      = "Greek_eta";
 169                 trans_names["theta"]    = "Greek_theta";
 170                 trans_names["iota"]     = "Greek_iota";
 171                 trans_names["kappa"]    = "Greek_kappa";
 172                 trans_names["lamda"]    = "Greek_lamda";
 173                 trans_names["lambda"]   = "Greek_lambda";
 174                 trans_names["mu"]       = "Greek_mu";
 175                 trans_names["nu"]       = "Greek_nu";
 176                 trans_names["xi"]       = "Greek_xi";
 177                 trans_names["ksi"]      = "Greek_xi";
 178                 trans_names["omicron"]  = "Greek_omicron";
 179                 trans_names["pi"]       = "Greek_pi";
 180                 trans_names["rho"]      = "Greek_rho";
 181                 trans_names["sigma"]    = "Greek_sigma";
 182                 trans_names["terminalsigma"]    = "Greek_finalsmallsigma";
 183                 trans_names["tau"]      = "Greek_tau";
 184                 trans_names["upsilon"]  = "Greek_upsilon";
 185                 trans_names["phi"]      = "Greek_phi";
 186                 trans_names["chi"]      = "Greek_chi";
 187                 trans_names["khi"]      = "Greek_chi";
 188                 trans_names["psi"]      = "Greek_psi";
 189                 trans_names["omega"]    = "Greek_omega";
 190                 trans_names["switch"]   = "Greek_switch";
 191 # Cyrillic
 192                 trans_names["cyrillic_capital_letter_io"]       = "Cyrillic_IO";
 193                 trans_names["cyrillic_capital_letter_je"]       = "Cyrillic_JE";
 194                 trans_names["cyrillic_capital_letter_lje"]      = "Cyrillic_LJE";
 195                 trans_names["cyrillic_capital_letter_nje"]      = "Cyrillic_NJE";
 196                 trans_names["cyrillic_capital_letter_dzhe"]     = "Cyrillic_DZHE";
 197                 trans_names["cyrillic_capital_letter_yu"]       = "Cyrillic_YU";
 198                 trans_names["cyrillic_capital_letter_iu"]       = "Cyrillic_YU";
 199                 trans_names["cyrillic_capital_letter_a"]        = "Cyrillic_A";
 200                 trans_names["cyrillic_capital_letter_be"]       = "Cyrillic_BE";
 201                 trans_names["cyrillic_capital_letter_tse"]      = "Cyrillic_TSE";
 202                 trans_names["cyrillic_capital_letter_de"]       = "Cyrillic_DE";
 203                 trans_names["cyrillic_capital_letter_ie"]       = "Cyrillic_IE";
 204                 trans_names["cyrillic_capital_letter_ef"]       = "Cyrillic_EF";
 205                 trans_names["cyrillic_capital_letter_ghe"]      = "Cyrillic_GHE";
 206                 trans_names["cyrillic_capital_letter_ge"]       = "Cyrillic_GHE";
 207                 trans_names["cyrillic_capital_letter_ha"]       = "Cyrillic_HA";
 208                 trans_names["cyrillic_capital_letter_kha"]      = "Cyrillic_HA";
 209                 trans_names["cyrillic_capital_letter_i"]        = "Cyrillic_I";
 210                 trans_names["cyrillic_capital_letter_ii"]       = "Cyrillic_I";
 211                 trans_names["cyrillic_capital_letter_short_i"]  = "Cyrillic_SHORTI";
 212                 trans_names["cyrillic_capital_letter_short_ii"] = "Cyrillic_SHORTI";
 213                 trans_names["cyrillic_capital_letter_ka"]       = "Cyrillic_KA";
 214                 trans_names["cyrillic_capital_letter_el"]       = "Cyrillic_EL";
 215                 trans_names["cyrillic_capital_letter_em"]       = "Cyrillic_EM";
 216                 trans_names["cyrillic_capital_letter_en"]       = "Cyrillic_EN";
 217                 trans_names["cyrillic_capital_letter_o"]        = "Cyrillic_O";
 218                 trans_names["cyrillic_capital_letter_pe"]       = "Cyrillic_PE";
 219                 trans_names["cyrillic_capital_letter_ya"]       = "Cyrillic_YA";
 220                 trans_names["cyrillic_capital_letter_ia"]       = "Cyrillic_YA";
 221                 trans_names["cyrillic_capital_letter_er"]       = "Cyrillic_ER";
 222                 trans_names["cyrillic_capital_letter_es"]       = "Cyrillic_ES";
 223                 trans_names["cyrillic_capital_letter_te"]       = "Cyrillic_TE";
 224                 trans_names["cyrillic_capital_letter_u"]        = "Cyrillic_U";
 225                 trans_names["cyrillic_capital_letter_zhe"]      = "Cyrillic_ZHE";
 226                 trans_names["cyrillic_capital_letter_ve"]       = "Cyrillic_VE";
 227                 trans_names["cyrillic_capital_soft_sign"]       = "Cyrillic_SOFTSIGN";
 228                 trans_names["cyrillic_capital_letter_yeru"]     = "Cyrillic_YERU";
 229                 trans_names["cyrillic_capital_letter_yeri"]     = "Cyrillic_YERU";
 230                 trans_names["cyrillic_capital_letter_ze"]       = "Cyrillic_ZE";
 231                 trans_names["cyrillic_capital_letter_sha"]      = "Cyrillic_SHA";
 232                 trans_names["cyrillic_capital_letter_e"]        = "Cyrillic_E";
 233                 trans_names["cyrillic_capital_letter_reversed_e"]       = "Cyrillic_E";
 234                 trans_names["cyrillic_capital_letter_shcha"]    = "Cyrillic_SHCHA";
 235                 trans_names["cyrillic_capital_letter_che"]      = "Cyrillic_CHE";
 236                 trans_names["cyrillic_capital_hard_sign"]       = "Cyrillic_HARDSIGN";
 237                 trans_names["cyrillic_small_letter_io"] = "Cyrillic_io";
 238                 trans_names["cyrillic_small_letter_je"] = "Cyrillic_je";
 239                 trans_names["cyrillic_small_letter_lje"]        = "Cyrillic_lje";
 240                 trans_names["cyrillic_small_letter_nje"]        = "Cyrillic_nje";
 241                 trans_names["cyrillic_small_letter_dzhe"]       = "Cyrillic_dzhe";
 242                 trans_names["cyrillic_small_letter_yu"] = "Cyrillic_yu";
 243                 trans_names["cyrillic_small_letter_iu"] = "Cyrillic_yu";
 244                 trans_names["cyrillic_small_letter_a"]  = "Cyrillic_a";
 245                 trans_names["cyrillic_small_letter_be"] = "Cyrillic_be";
 246                 trans_names["cyrillic_small_letter_tse"]        = "Cyrillic_tse";
 247                 trans_names["cyrillic_small_letter_de"] = "Cyrillic_de";
 248                 trans_names["cyrillic_small_letter_ie"] = "Cyrillic_ie";
 249                 trans_names["cyrillic_small_letter_ef"] = "Cyrillic_ef";
 250                 trans_names["cyrillic_small_letter_ghe"]        = "Cyrillic_ghe";
 251                 trans_names["cyrillic_small_letter_ge"] = "Cyrillic_ghe";
 252                 trans_names["cyrillic_small_letter_ha"] = "Cyrillic_ha";
 253                 trans_names["cyrillic_small_letter_kha"]        = "Cyrillic_ha";
 254                 trans_names["cyrillic_small_letter_i"]  = "Cyrillic_i";
 255                 trans_names["cyrillic_small_letter_ii"] = "Cyrillic_i";
 256                 trans_names["cyrillic_small_letter_short_i"]    = "Cyrillic_shorti";
 257                 trans_names["cyrillic_small_letter_short_ii"]   = "Cyrillic_shorti";
 258                 trans_names["cyrillic_small_letter_ka"] = "Cyrillic_ka";
 259                 trans_names["cyrillic_small_letter_el"] = "Cyrillic_el";
 260                 trans_names["cyrillic_small_letter_em"] = "Cyrillic_em";
 261                 trans_names["cyrillic_small_letter_en"] = "Cyrillic_en";
 262                 trans_names["cyrillic_small_letter_o"]  = "Cyrillic_o";
 263                 trans_names["cyrillic_small_letter_pe"] = "Cyrillic_pe";
 264                 trans_names["cyrillic_small_letter_ya"] = "Cyrillic_ya";
 265                 trans_names["cyrillic_small_letter_ia"] = "Cyrillic_ya";
 266                 trans_names["cyrillic_small_letter_er"] = "Cyrillic_er";
 267                 trans_names["cyrillic_small_letter_es"] = "Cyrillic_es";
 268                 trans_names["cyrillic_small_letter_te"] = "Cyrillic_te";
 269                 trans_names["cyrillic_small_letter_u"]  = "Cyrillic_u";
 270                 trans_names["cyrillic_small_letter_zhe"]        = "Cyrillic_zhe";
 271                 trans_names["cyrillic_small_letter_ve"] = "Cyrillic_ve";
 272                 trans_names["cyrillic_small_soft_sign"] = "Cyrillic_softsign";
 273                 trans_names["cyrillic_small_letter_yeru"]       = "Cyrillic_yeru";
 274                 trans_names["cyrillic_small_letter_yeri"]       = "Cyrillic_yeru";
 275                 trans_names["cyrillic_small_letter_ze"] = "Cyrillic_ze";
 276                 trans_names["cyrillic_small_letter_sha"]        = "Cyrillic_sha";
 277                 trans_names["cyrillic_small_letter_e"]  = "Cyrillic_e";
 278                 trans_names["cyrillic_small_letter_reversed_e"] = "Cyrillic_e";
 279                 trans_names["cyrillic_small_letter_shcha"]      = "Cyrillic_shcha";
 280                 trans_names["cyrillic_small_letter_che"]        = "Cyrillic_che";
 281                 trans_names["cyrillic_small_hard_sign"] = "Cyrillic_hardsign";
 282                 trans_names["serbocroatian_cyrillic_capital_letter_dje"]        = "Serbian_DJE";
 283                 trans_names["serbocroatian_cyrillic_capital_letter_je"] = "Serbian_JE";
 284                 trans_names["serbocroatian_cyrillic_capital_letter_lje"]        = "Serbian_LJE";
 285                 trans_names["serbocroatian_cyrillic_capital_letter_nje"]        = "Serbian_NJE";
 286                 trans_names["serbocroatian_cyrillic_capital_letter_tshe"]       = "Serbian_TSHE";
 287                 trans_names["serbocroatian_cyrillic_capital_letter_dze"]        = "Serbian_DZE";
 288                 trans_names["serbocroatian_cyrillic_small_letter_dje"]  = "Serbian_dje";
 289                 trans_names["serbocroatian_cyrillic_small_letter_je"]   = "Serbian_je";
 290                 trans_names["serbocroatian_cyrillic_small_letter_lje"]  = "Serbian_lje";
 291                 trans_names["serbocroatian_cyrillic_small_letter_nje"]  = "Serbian_nje";
 292                 trans_names["serbocroatian_cyrillic_small_letter_tshe"] = "Serbian_tshe";
 293                 trans_names["serbocroatian_cyrillic_small_letter_dze"]  = "Serbian_dze";
 294                 trans_names["macedonian_cyrillic_capital_letter_gje"]   = "Macedonia_GJE";
 295                 trans_names["macedonian_cyrillic_capital_letter_dze"]   = "Macedonia_DSE";
 296                 trans_names["macedonian_cyrillic_capital_letter_kje"]   = "Macedonia_KJE";
 297                 trans_names["macedonian_cyrillic_small_letter_gje"]     = "Macedonia_gje";
 298                 trans_names["macedonian_cyrillic_small_letter_dze"]     = "Macedonia_dse";
 299                 trans_names["macedonian_cyrillic_small_letter_kje"]     = "Macedonia_kje";
 300                 trans_names["ukrainian_cyrillic_capital_letter_ie"]     = "Ukrainian_JE";
 301                 trans_names["ukrainian_cyrillic_capital_letter_i"]      = "Ukrainian_I";
 302                 trans_names["ukrainian_cyrillic_capital_letter_yi"]     = "Ukrainian_YI";
 303                 trans_names["ukrainian_cyrillic_small_letter_ie"]       = "Ukrainian_ie";
 304                 trans_names["ukrainian_cyrillic_small_letter_i"]        = "Ukrainian_i";
 305                 trans_names["ukrainian_cyrillic_small_letter_yi"]       = "Ukrainian_yi";
 306                 trans_names["bielorussian_cyrillic_capital_letter_short_u"]     = "Byelorussian_SHORTU";
 307                 trans_names["bielorussian_cyrillic_capital_letter_i"]   = "Ukrainian_I";
 308                 trans_names["bielorussian_cyrillic_small_letter_short_u"]       = "Byelorussian_shortu";
 309                 trans_names["bielorussian_cyrillic_small_letter_i"]     = "Ukrainian_i";
 310 # Hebrew
 311                 trans_names["doubleunderscore"] = "hebrew_doublelowline";
 312                 trans_names["alef"]     = "hebrew_aleph";
 313                 trans_names["bet"]      = "hebrew_bet";
 314                 trans_names["gimel"]    = "hebrew_gimel";
 315                 trans_names["dalet"]    = "hebrew_dalet";
 316                 trans_names["he"]       = "hebrew_he";
 317                 trans_names["vav"]      = "hebrew_waw";
 318                 trans_names["zayin"]    = "hebrew_zain";
 319                 trans_names["het"]      = "hebrew_chet";
 320                 trans_names["tet"]      = "hebrew_tet";
 321                 trans_names["yod"]      = "hebrew_yod";
 322                 trans_names["finalkaf"] = "hebrew_finalkaph";
 323                 trans_names["kaf"]      = "hebrew_kaph";
 324                 trans_names["lamed"]    = "hebrew_lamed";
 325                 trans_names["finalmem"] = "hebrew_finalmem";
 326                 trans_names["mem"]      = "hebrew_mem";
 327                 trans_names["finalnun"] = "hebrew_finalnun";
 328                 trans_names["nun"]      = "hebrew_nun";
 329                 trans_names["samekh"]   = "hebrew_samech";
 330                 trans_names["ayin"]     = "hebrew_ayin";
 331                 trans_names["finalpe"]  = "hebrew_finalpe";
 332                 trans_names["pe"]       = "hebrew_pe";
 333                 trans_names["finaltsadi"]       = "hebrew_finalzade";
 334                 trans_names["tsadi"]    = "hebrew_zade";
 335                 trans_names["qof"]      = "hebrew_qoph";
 336                 trans_names["resh"]     = "hebrew_resh";
 337                 trans_names["shin"]     = "hebrew_shin";
 338                 trans_names["tav"]      = "hebrew_taw";
 339         }
 340         $1 == "keycode" {
 341                 output = "";
 342                 keycode = $2;
 343                 i = ($3 == "=") ? 4 : 3;
 344                 for ( ; i <= NF; i++) {
 345                         sub(/^\+/, "", $i);
 346                         n = $i;
 347                         if ($i in shifts)
 348                                 n = shift_keys[keycode];
 349                         else if ($i in trans_names)
 350                                 n = trans_names[$i];
 351
 352                         if (n in valid || n in valid || $i in trans_names)
 353                                 output = output " " n;
 354                         else if (n ~ /0x[0-9a-fA-F]*/)
 355                                 output = output " " n;
 356                         else
 357                                 msg("Skipped " $i);
 358                 }
 359
 360                 if (keycode in trans_keys)
 361                         keycode = trans_keys[keycode];
 362                 else
 363                         keycode += 8;
 364
 365                 if (keycode > 117)
 366                         msg("Skipped keycode " keycode-8 ": " output);
 367                 else if (output)
 368                         printf("keycode %3d =%s\n", keycode, output);
 369                 next;
 370         }
 371         { print }
 372         function msg(m) { if (verbose) print m > "/dev/stderr"; }'
 373
 374 cat <<__EOH__
 375 add Mod1 = Alt_L
 376 add Mod2 = Mode_switch
 377 __EOH__