forked from AdaCore/gnatstudio
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgps-lsp_client-refactoring.adb
34 lines (30 loc) · 1.75 KB
/
gps-lsp_client-refactoring.adb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
------------------------------------------------------------------------------
-- GNAT Studio --
-- --
-- Copyright (C) 2020-2023, AdaCore --
-- --
-- This is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. This software is distributed in the hope that it will be useful, --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- --
-- TABILITY 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 distributed with this software; see file --
-- COPYING3. If not, go to http://www.gnu.org/licenses for a complete copy --
-- of the license. --
------------------------------------------------------------------------------
with GPS.LSP_Client.Refactoring.Rename;
with GPS.LSP_Client.Refactoring.Name_Parameters;
with GPS.LSP_Module;
package body GPS.LSP_Client.Refactoring is
procedure Register
(Kernel : Kernel_Handle;
Id : GPS.Kernel.Modules.Module_ID) is
begin
GPS.LSP_Client.Refactoring.Rename.Register (Kernel, Id);
if GPS.LSP_Module.LSP_Ada_Support_Trace_Is_Active then
GPS.LSP_Client.Refactoring.Name_Parameters.Register (Kernel, Id);
end if;
end Register;
end GPS.LSP_Client.Refactoring;