cleanup: clean boot sequence

[d2df-sdl.git] / src / engine / e_input_stub.inc

diff --git a/src/engine/e_input_stub.inc b/src/engine/e_input_stub.inc
index 670390a2b4c256f2ac257e35e4c972c79ee75c69..cd0cb3d03eb67b479d95a0167f3f15579ce0a66d 100644 (file)
--- a/src/engine/e_input_stub.inc
+++ b/src/engine/e_input_stub.inc
@@ -227,8 +227,9 @@ interface
   JOY2_DOWN = JOYH_BEG + 2*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
   JOY3_DOWN = JOYH_BEG + 3*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
 
-function  e_InitInput: Boolean;
-procedure e_ReleaseInput;
+procedure e_Input_Initialize;
+procedure e_Input_Finalize;
+
 procedure e_UnpressAllKeys;
 procedure e_KeyUpDown (key: Integer; down: Boolean);
 
@@ -393,16 +394,15 @@ begin
   result := i < e_MaxJoys
 end;
 
-function e_InitInput: Boolean;
+procedure e_Input_Initialize;
   var i: Integer;
 begin
   for i := 0 to e_MaxJoys - 1 do
     e_JoystickAvailable[i] := False;
-  GenerateKeyNames;
-  result := True
+  GenerateKeyNames
 end;
 
-procedure e_ReleaseInput;
+procedure e_Input_Finalize;
   var i: Integer;
 begin
   for i := 0 to e_MaxJoys - 1 do