Add lookup table for Hedgewars key IDs instead of generating IDs on the fly
authorWuzzy <Wuzzy2@mail.ru>
Thu, 25 Apr 2019 19:42:19 +0200
changeset 14837 769189675b6c
parent 14834 f56936207a65
child 14838 42346a67fba4
Add lookup table for Hedgewars key IDs instead of generating IDs on the fly This makes sure the key IDs never change. Previous implementation abused SDL_GetScancodeName to generate the IDs programmatically, which was not reliable and explicitly adviced against in the SDL documentation <https://wiki.libsdl.org/SDL_GetScancodeName#Remarks>.
hedgewars/uInputHandler.pas
hedgewars/uKeyNames.pas
--- a/hedgewars/uInputHandler.pas	Tue Apr 23 15:54:06 2019 +0200
+++ b/hedgewars/uInputHandler.pas	Thu Apr 25 19:42:19 2019 +0200
@@ -60,7 +60,7 @@
 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean);
 
 implementation
-uses uConsole, uCommands, uVariables, uConsts, uUtils, uDebug, uPhysFSLayer, uCursor;
+uses uKeyNames, uConsole, uCommands, uVariables, uConsts, uUtils, uDebug, uPhysFSLayer, uCursor;
 
 const
     LSHIFT = $0200;
@@ -71,7 +71,7 @@
     RCTRL  = $4000;
 
 var tkbd: array[0..cKbdMaxIndex] of boolean;
-    KeyNames: array [0..cKeyMaxIndex] of string[15];
+    KeyNames: TKeyNames;
     CurrentBinds: TBinds;
     ControllerNumControllers: Integer;
     ControllerEnabled: Integer;
@@ -446,9 +446,9 @@
 
 
 procedure InitKbdKeyTable;
-var i, j, k, t: LongInt;
-    s: string[15];
+var i, j, k: LongInt;
 begin
+    // Mouse buttons and mouse wheel
     KeyNames[cKeyMaxIndex    ]:= 'mousel';
     KeyNames[cKeyMaxIndex - 1]:= 'mousem';
     KeyNames[cKeyMaxIndex - 2]:= 'mouser';
@@ -457,16 +457,8 @@
     mwheeldownCode:= cKeyMaxIndex - 4;
     KeyNames[mwheeldownCode]:= 'wheeldown';
 
-    for i:= 0 to cKeyMaxIndex - 5 do
-        begin
-        s:= shortstring(SDL_GetScancodeName(TSDL_Scancode(i)));
-
-        for t:= 1 to Length(s) do
-            if s[t] = ' ' then
-                s[t]:= '_';
-        KeyNames[i]:= LowerCase(s)
-        end;
-
+    // Keyboard keys
+    uKeyNames.populateKeyNames(KeyNames);
 
     // get the size of keyboard array
     SDL_GetKeyboardState(@k);
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hedgewars/uKeyNames.pas	Thu Apr 25 19:42:19 2019 +0200
@@ -0,0 +1,297 @@
+(*
+ * Hedgewars, a free turn based strategy game
+ * Copyright (c) 2004-2019 Andrey Korotaev <unC0Rr@gmail.com>
+ *
+ * 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; version 2 of the License
+ *
+ * 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., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ *)
+
+unit uKeyNames;
+interface
+uses uConsts;
+
+type TKeyNames = array [0..cKeyMaxIndex] of string[15];
+
+procedure populateKeyNames(var KeyArray: TKeyNames);
+
+implementation
+
+procedure populateKeyNames(var KeyArray: TKeyNames);
+begin
+(*
+ This is a mapping from SDL scancodes to Hedgewars key identifiers.
+ Hedgewars key identifiers are strings with a maximum length of 15
+ and are used internally to identify keys in the engine and in settings.ini.
+*)
+    KeyArray[4] := 'a';
+    KeyArray[5] := 'b';
+    KeyArray[6] := 'c';
+    KeyArray[7] := 'd';
+    KeyArray[8] := 'e';
+    KeyArray[9] := 'f';
+    KeyArray[10] := 'g';
+    KeyArray[11] := 'h';
+    KeyArray[12] := 'i';
+    KeyArray[13] := 'j';
+    KeyArray[14] := 'k';
+    KeyArray[15] := 'l';
+    KeyArray[16] := 'm';
+    KeyArray[17] := 'n';
+    KeyArray[18] := 'o';
+    KeyArray[19] := 'p';
+    KeyArray[20] := 'q';
+    KeyArray[21] := 'r';
+    KeyArray[22] := 's';
+    KeyArray[23] := 't';
+    KeyArray[24] := 'u';
+    KeyArray[25] := 'v';
+    KeyArray[26] := 'w';
+    KeyArray[27] := 'x';
+    KeyArray[28] := 'y';
+    KeyArray[29] := 'z';
+    KeyArray[30] := '1';
+    KeyArray[31] := '2';
+    KeyArray[32] := '3';
+    KeyArray[33] := '4';
+    KeyArray[34] := '5';
+    KeyArray[35] := '6';
+    KeyArray[36] := '7';
+    KeyArray[37] := '8';
+    KeyArray[38] := '9';
+    KeyArray[39] := '0';
+    KeyArray[40] := 'return';
+    KeyArray[41] := 'escape';
+    KeyArray[42] := 'backspace';
+    KeyArray[43] := 'tab';
+    KeyArray[44] := 'space';
+    KeyArray[45] := '-';
+    KeyArray[46] := '=';
+    KeyArray[47] := '[';
+    KeyArray[48] := ']';
+    KeyArray[49] := '\';
+    KeyArray[50] := '#';
+    KeyArray[51] := ';';
+    KeyArray[52] := '''';
+    KeyArray[53] := '`';
+    KeyArray[54] := ',';
+    KeyArray[55] := '.';
+    KeyArray[56] := '/';
+    KeyArray[57] := 'capslock';
+    KeyArray[58] := 'f1';
+    KeyArray[59] := 'f2';
+    KeyArray[60] := 'f3';
+    KeyArray[61] := 'f4';
+    KeyArray[62] := 'f5';
+    KeyArray[63] := 'f6';
+    KeyArray[64] := 'f7';
+    KeyArray[65] := 'f8';
+    KeyArray[66] := 'f9';
+    KeyArray[67] := 'f10';
+    KeyArray[68] := 'f11';
+    KeyArray[69] := 'f12';
+    KeyArray[70] := 'printscreen';
+    KeyArray[71] := 'scrolllock';
+    KeyArray[72] := 'pause';
+    KeyArray[73] := 'insert';
+    KeyArray[74] := 'home';
+    KeyArray[75] := 'pageup';
+    KeyArray[76] := 'delete';
+    KeyArray[77] := 'end';
+    KeyArray[78] := 'pagedown';
+    KeyArray[79] := 'right';
+    KeyArray[80] := 'left';
+    KeyArray[81] := 'down';
+    KeyArray[82] := 'up';
+    KeyArray[83] := 'numlock';
+    KeyArray[84] := 'keypad_/';
+    KeyArray[85] := 'keypad_*';
+    KeyArray[86] := 'keypad_-';
+    KeyArray[87] := 'keypad_+';
+    KeyArray[88] := 'keypad_enter';
+    KeyArray[89] := 'keypad_1';
+    KeyArray[90] := 'keypad_2';
+    KeyArray[91] := 'keypad_3';
+    KeyArray[92] := 'keypad_4';
+    KeyArray[93] := 'keypad_5';
+    KeyArray[94] := 'keypad_6';
+    KeyArray[95] := 'keypad_7';
+    KeyArray[96] := 'keypad_8';
+    KeyArray[97] := 'keypad_9';
+    KeyArray[98] := 'keypad_0';
+    KeyArray[99] := 'keypad_.';
+    KeyArray[101] := 'menu';
+    KeyArray[102] := 'power';
+    KeyArray[103] := 'keypad_=';
+    KeyArray[104] := 'f13';
+    KeyArray[105] := 'f14';
+    KeyArray[106] := 'f15';
+    KeyArray[107] := 'f16';
+    KeyArray[108] := 'f17';
+    KeyArray[109] := 'f18';
+    KeyArray[110] := 'f19';
+    KeyArray[111] := 'f20';
+    KeyArray[112] := 'f21';
+    KeyArray[113] := 'f22';
+    KeyArray[114] := 'f23';
+    KeyArray[115] := 'f24';
+    KeyArray[116] := 'execute';
+    KeyArray[117] := 'help';
+    KeyArray[118] := 'menu';
+    KeyArray[119] := 'select';
+    KeyArray[120] := 'stop';
+    KeyArray[121] := 'again';
+    KeyArray[122] := 'undo';
+    KeyArray[123] := 'cut';
+    KeyArray[124] := 'copy';
+    KeyArray[125] := 'paste';
+    KeyArray[126] := 'find';
+    KeyArray[127] := 'mute';
+    KeyArray[128] := 'volumeup';
+    KeyArray[129] := 'volumedown';
+    KeyArray[133] := 'keypad_,';
+    KeyArray[134] := 'keypad_=_(as400';
+    KeyArray[153] := 'alterase';
+    KeyArray[154] := 'sysreq';
+    KeyArray[155] := 'cancel';
+    KeyArray[156] := 'clear';
+    KeyArray[157] := 'prior';
+    KeyArray[158] := 'return2';
+    KeyArray[159] := 'separator';
+    KeyArray[160] := 'out';
+    KeyArray[161] := 'oper';
+    KeyArray[162] := 'clear_/_again';
+    KeyArray[163] := 'crsel';
+    KeyArray[164] := 'exsel';
+    KeyArray[176] := 'keypad_00';
+    KeyArray[177] := 'keypad_000';
+    KeyArray[178] := 'thousandssepara';
+    KeyArray[179] := 'decimalseparato';
+    KeyArray[180] := 'currencyunit';
+    KeyArray[181] := 'currencysubunit';
+    KeyArray[182] := 'keypad_(';
+    KeyArray[183] := 'keypad_)';
+    KeyArray[184] := 'keypad_{';
+    KeyArray[185] := 'keypad_}';
+    KeyArray[186] := 'keypad_tab';
+    KeyArray[187] := 'keypad_backspac';
+    KeyArray[188] := 'keypad_a';
+    KeyArray[189] := 'keypad_b';
+    KeyArray[190] := 'keypad_c';
+    KeyArray[191] := 'keypad_d';
+    KeyArray[192] := 'keypad_e';
+    KeyArray[193] := 'keypad_f';
+    KeyArray[194] := 'keypad_xor';
+    KeyArray[195] := 'keypad_^';
+    KeyArray[196] := 'keypad_%';
+    KeyArray[197] := 'keypad_<';
+    KeyArray[198] := 'keypad_>';
+    KeyArray[199] := 'keypad_&';
+    KeyArray[200] := 'keypad_&&';
+    KeyArray[201] := 'keypad_|';
+    KeyArray[202] := 'keypad_||';
+    KeyArray[203] := 'keypad_:';
+    KeyArray[204] := 'keypad_#';
+    KeyArray[205] := 'keypad_space';
+    KeyArray[206] := 'keypad_@';
+    KeyArray[207] := 'keypad_!';
+    KeyArray[208] := 'keypad_memstore';
+    KeyArray[209] := 'keypad_memrecal';
+    KeyArray[210] := 'keypad_memclear';
+    KeyArray[211] := 'keypad_memadd';
+    KeyArray[212] := 'keypad_memsubtr';
+    KeyArray[213] := 'keypad_memmulti';
+    KeyArray[214] := 'keypad_memdivid';
+    KeyArray[215] := 'keypad_+/-';
+    KeyArray[216] := 'keypad_clear';
+    KeyArray[217] := 'keypad_clearent';
+    KeyArray[218] := 'keypad_binary';
+    KeyArray[219] := 'keypad_octal';
+    KeyArray[220] := 'keypad_decimal';
+    KeyArray[221] := 'keypad_hexadeci';
+    KeyArray[224] := 'left_ctrl';
+    KeyArray[225] := 'left_shift';
+    KeyArray[226] := 'left_alt';
+    KeyArray[227] := 'left_gui';
+    KeyArray[228] := 'right_ctrl';
+    KeyArray[229] := 'right_shift';
+    KeyArray[230] := 'right_alt';
+    KeyArray[231] := 'right_gui';
+    KeyArray[257] := 'modeswitch';
+    KeyArray[258] := 'audionext';
+    KeyArray[259] := 'audioprev';
+    KeyArray[260] := 'audiostop';
+    KeyArray[261] := 'audioplay';
+    KeyArray[262] := 'audiomute';
+    KeyArray[263] := 'mediaselect';
+    KeyArray[264] := 'www';
+    KeyArray[265] := 'mail';
+    KeyArray[266] := 'calculator';
+    KeyArray[267] := 'computer';
+    KeyArray[268] := 'ac_search';
+    KeyArray[269] := 'ac_home';
+    KeyArray[270] := 'ac_back';
+    KeyArray[271] := 'ac_forward';
+    KeyArray[272] := 'ac_stop';
+    KeyArray[273] := 'ac_refresh';
+    KeyArray[274] := 'ac_bookmarks';
+    KeyArray[275] := 'brightnessdown';
+    KeyArray[276] := 'brightnessup';
+    KeyArray[277] := 'displayswitch';
+    KeyArray[278] := 'kbdillumtoggle';
+    KeyArray[279] := 'kbdillumdown';
+    KeyArray[280] := 'kbdillumup';
+    KeyArray[281] := 'eject';
+    KeyArray[282] := 'sleep';
+    KeyArray[283] := 'app1';
+    KeyArray[284] := 'app2';
+    KeyArray[285] := 'audiorewind';
+    KeyArray[286] := 'audiofastforwar';
+
+end;
+
+(*
+The Hedgewars key identifiers were obtained with the following algorithm:
+
+Basically:
+- For each SDL scancode, do:
+   - Take the printable SDL scancode key name (with SDL_GetScancodeName)
+   - Replace spaces with underscores
+   - Lowercase it
+   - Cap string length to 15 characters
+- Manually fix duplicates
+
+See also:
+
+https://wiki.libsdl.org/SDLScancodeLookup
+https://wiki.libsdl.org/SDL_Scancode
+
+NOTE: For compability reasons, existing identifiers should not be renamed.
+
+Old code snippet:
+
+    for i := 0 to cKeyMaxIndex - 5 do
+        begin
+        s := shortstring(SDL_GetScancodeName(TSDL_Scancode(i)));
+
+        for t := 1 to Length(s) do
+            if s[t] = ' ' then
+                s[t] := '_';
+        KeyArray[i] := LowerCase(s);
+        if s = '''' then
+            WriteLnToConsole('    KeyArray['+IntToStr(i)+']'+' := '';')
+        else if s <> '' then
+            WriteLnToConsole('    KeyArray[SDL_SCANCODE_'+KeyArray[i]+']'+' := '''+KeyArray[i]+''';');
+        end;
+*)
+
+end.