Base packages for generated code for LSP 3.17 client.

Author: godunko

liblsp_3_17/source/lsp-server_message_consumers.ads

@@ -0,0 +1,23 @@
+--
+--  Copyright (C) 2024, AdaCore
+--
+
+--  Consumer interface to process client->server messages created by the
+--  Server_Message_Factory.
+
+with LSP.Server_Messages;
+
+package LSP.Server_Message_Consumers
+   with Preelaborate
+is
+
+   type Server_Message_Consumer is limited interface;
+
+   not overriding procedure On_Message
+     (Self    : in out Server_Message_Consumer;
+      Message : not null LSP.Server_Messages.Server_Message_Access)
+        is abstract;
+   --  Process message. Implementation is responsible to release memory
+   --  occupied by message.
+
+end LSP.Server_Message_Consumers;

liblsp_3_17/source/lsp-server_message_receivers.ads

@@ -0,0 +1,19 @@
+--
+--  Copyright (C) 2024, AdaCore
+--
+--  SPDX-License-Identifier: Apache-2.0
+--
+
+with LSP.Server_Notification_Receivers;
+with LSP.Server_Request_Receivers;
+with LSP.Server_Response_Receivers;
+
+package LSP.Server_Message_Receivers is
+   pragma Preelaborate;
+
+   type Server_Message_Receiver is limited interface
+     and LSP.Server_Notification_Receivers.Server_Notification_Receiver
+     and LSP.Server_Request_Receivers.Server_Request_Receiver
+     and LSP.Server_Response_Receivers.Server_Response_Receiver;
+
+end LSP.Server_Message_Receivers;

liblsp_3_17/source/lsp-server_responses-errors.adb

@@ -0,0 +1,21 @@
+--
+--  Copyright (C) 2022-2023, AdaCore
+--
+--  SPDX-License-Identifier: Apache-2.0
+--
+
+package body LSP.Server_Responses.Errors is
+
+   ---------------------------
+   -- Visit_Server_Receiver --
+   ---------------------------
+
+   overriding procedure Visit_Server_Receiver
+     (Self  : Response;
+      Value : in out
+        LSP.Server_Response_Receivers.Server_Response_Receiver'Class) is
+   begin
+      Value.On_Error_Response (Self.Id, Self.Error);
+   end Visit_Server_Receiver;
+
+end LSP.Server_Responses.Errors;

liblsp_3_17/source/lsp-server_responses-errors.ads

@@ -0,0 +1,20 @@
+--
+--  Copyright (C) 2024, AdaCore
+--
+--  SPDX-License-Identifier: Apache-2.0
+--
+
+package LSP.Server_Responses.Errors
+  with Preelaborate
+is
+
+   type Response is new LSP.Server_Responses.Server_Response with record
+      Error : LSP.Errors.ResponseError;
+   end record;
+
+   overriding procedure Visit_Server_Receiver
+     (Self  : Response;
+      Value : in out
+        LSP.Server_Response_Receivers.Server_Response_Receiver'Class);
+
+end LSP.Server_Responses.Errors;