Reuse Hash function.

Author: godunko

liblsp_3_17/source/lsp-structures-hashes.ads

@@ -0,0 +1,35 @@
+------------------------------------------------------------------------------
+--                         Language Server Protocol                         --
+--                                                                          --
+--                     Copyright (C) 2018-2024, 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.                                                          --
+------------------------------------------------------------------------------
+
+private with VSS.Strings.Hash;
+
+package LSP.Structures.Hashes is
+
+   function Hash
+     (Item : LSP.Structures.Integer_Or_Virtual_String)
+      return Ada.Containers.Hash_Type;
+
+private
+
+   function Hash
+     (Item : LSP.Structures.Integer_Or_Virtual_String)
+      return Ada.Containers.Hash_Type is
+        (case Item.Is_Integer is
+            when True  => Ada.Containers.Hash_Type'Mod (Item.Integer),
+            when False => VSS.Strings.Hash (Item.Virtual_String));
+
+end LSP.Structures.Hashes;

source/server/lsp-known_requests.adb

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                         Language Server Protocol                         --
 --                                                                          --
---                     Copyright (C) 2022-2023, AdaCore                     --
+--                     Copyright (C) 2022-2024, 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- --
@@ -17,6 +17,9 @@
 
 with Ada.Unchecked_Conversion;
 
+with LSP.Server_Notifications;
+with LSP.Server_Requests;
+
 package body LSP.Known_Requests is
 
    type Request_Constant_Access is

source/server/lsp-known_requests.ads

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                         Language Server Protocol                         --
 --                                                                          --
---                     Copyright (C) 2022-2023, AdaCore                     --
+--                     Copyright (C) 2022-2024, 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- --
@@ -15,16 +15,14 @@
 -- of the license.                                                          --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Hashed_Maps;
+private with Ada.Containers.Hashed_Maps;
 
-with VSS.Strings.Hash;
-
-with LSP.Server_Message_Visitors;
+private with LSP.Server_Message_Visitors;
 with LSP.Server_Messages;
-with LSP.Server_Notification_Receivers;
-with LSP.Server_Notifications;
-with LSP.Server_Requests;
-with LSP.Structures;
+private with LSP.Server_Notification_Receivers;
+limited private with LSP.Server_Notifications;
+limited private with LSP.Server_Requests;
+private with LSP.Structures.Hashes;
 
 package LSP.Known_Requests is
 
@@ -61,22 +59,13 @@ private
      (Self  : in out Visitor;
       Value : LSP.Structures.CancelParams);
 
-   function Hash
-     (Value : LSP.Structures.Integer_Or_Virtual_String)
-      return Ada.Containers.Hash_Type is
-        (case Value.Is_Integer is
-            when True =>
-               Ada.Containers.Hash_Type'Mod (Value.Integer),
-            when False =>
-               VSS.Strings.Hash (Value.Virtual_String));
-
    type Request_Access is
      access all LSP.Server_Requests.Server_Request'Class;
 
    package Request_Maps is new Ada.Containers.Hashed_Maps
      (Key_Type        => LSP.Structures.Integer_Or_Virtual_String,  --  id
       Element_Type    => Request_Access,
-      Hash            => Hash,
+      Hash            => LSP.Structures.Hashes.Hash,
       Equivalent_Keys => LSP.Structures."=",
       "="             => "=");