From d4193fa14ac1b4ce98d12dabcf77bca911f96167 Mon Sep 17 00:00:00 2001 From: thindil Date: Thu, 3 Oct 2024 03:13:59 +0000 Subject: [PATCH] refactor: removed unused code FossilOrigin-Name: c7fde8b1f847a624b1a5ddf55c266f1396362bda29c7911aad7f33030ec05e0a --- src/ui/knowledge-missions.adb | 102 ---------------------------------- src/ui/knowledge-missions.ads | 30 ---------- 2 files changed, 132 deletions(-) delete mode 100644 src/ui/knowledge-missions.adb delete mode 100644 src/ui/knowledge-missions.ads diff --git a/src/ui/knowledge-missions.adb b/src/ui/knowledge-missions.adb deleted file mode 100644 index 5c5bed558..000000000 --- a/src/ui/knowledge-missions.adb +++ /dev/null @@ -1,102 +0,0 @@ --- Copyright (c) 2020-2024 Bartek thindil Jasicki --- --- 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, either version 3 of the License, or --- (at your option) any later version. --- --- 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, see . - -with Interfaces.C; use Interfaces.C; -with CArgv; -with Tcl; use Tcl; -with Utils.UI; - -package body Knowledge.Missions is - - -- ****if* KMissions/KMissions.Show_Missions_Menu_Command - -- FUNCTION - -- Show the menu with available the selected mission options - -- PARAMETERS - -- Client_Data - Custom data send to the command. Unused - -- Interp - Tcl interpreter in which command was executed. Unused - -- Argc - Number of arguments passed to the command. Unused - -- Argv - Values of arguments passed to the command. - -- RESULT - -- This function always return TCL_OK - -- COMMANDS - -- ShowMissionsMenu missionindex - -- MissionIndex is the index of the mission's menu to show - -- SOURCE - function Show_Missions_Menu_Command - (Client_Data: Integer; Interp: Tcl.Tcl_Interp; Argc: Interfaces.C.int; - Argv: CArgv.Chars_Ptr_Ptr) return Interfaces.C.int with - Import => True, - Convention => C, - External_Name => "showMissionsMenuCommand"; - -- **** - - -- ****o* KMissions/KMissions.Show_Missions_Command - -- FUNCTION - -- Show the list of known missions to the player - -- PARAMETERS - -- Client_Data - Custom data send to the command. Unused - -- Interp - Tcl interpreter in which command was executed. - -- Argc - Number of arguments passed to the command. - -- Argv - Values of arguments passed to the command. - -- RESULT - -- This function always return TCL_OK - -- COMMANDS - -- ShowMissions ?startindex? - -- Page parameter is a page number which will be show - -- SOURCE - function Show_Missions_Command - (Client_Data: Integer; Interp: Tcl.Tcl_Interp; Argc: Interfaces.C.int; - Argv: CArgv.Chars_Ptr_Ptr) return Interfaces.C.int with - Import => True, - Convention => C, - External_Name => "showMissionsCommand"; - -- **** - - -- ****o* KMissions/KMissions.Sort_Missions_Command - -- FUNCTION - -- Sort the accepted missions list - -- PARAMETERS - -- Client_Data - Custom data send to the command. Unused - -- Interp - Tcl interpreter in which command was executed. Unused - -- Argc - Number of arguments passed to the command. Unused - -- Argv - Values of arguments passed to the command. - -- RESULT - -- This function always return TCL_OK - -- COMMANDS - -- SortAccepted_Missions x - -- X is X axis coordinate where the player clicked the mouse button - -- SOURCE - function Sort_Missions_Command - (Client_Data: Integer; Interp: Tcl.Tcl_Interp; Argc: Interfaces.C.int; - Argv: CArgv.Chars_Ptr_Ptr) return Interfaces.C.int with - Import => True, - Convention => C, - External_Name => "sortMissionsCommand"; - -- **** - - procedure Add_Knowledge_Missions_Commands is - use Utils.UI; - begin - Add_Command - (Name => "ShowMissionMenu", - Ada_Command => Show_Missions_Menu_Command'Access); - Add_Command - (Name => "ShowMissions", Ada_Command => Show_Missions_Command'Access); - Add_Command - (Name => "SortAccepted_Missions", - Ada_Command => Sort_Missions_Command'Access); - end Add_Knowledge_Missions_Commands; - -end Knowledge.Missions; diff --git a/src/ui/knowledge-missions.ads b/src/ui/knowledge-missions.ads deleted file mode 100644 index 6f4af36df..000000000 --- a/src/ui/knowledge-missions.ads +++ /dev/null @@ -1,30 +0,0 @@ --- Copyright (c) 2020-2024 Bartek thindil Jasicki --- --- 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, either version 3 of the License, or --- (at your option) any later version. --- --- 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, see . - --- ****h* Knowledge/KMissions --- FUNCTION --- Provide code to show the list of known events to the player --- SOURCE -package Knowledge.Missions is --- **** - - -- ****f* KMissions/KMissions.Add_Knowledge_Missions_Commands - -- FUNCTION - -- Add Tcl commands related to the list of known bases - -- SOURCE - procedure Add_Knowledge_Missions_Commands; - -- **** - -end Knowledge.Missions;