Add ShowDocument request support.

Author: reznikmm

source/protocol/lsp-client_request_receivers.ads

@@ -58,4 +58,9 @@ package LSP.Client_Request_Receivers is
       Message : LSP.Messages.Client_Requests.UnregisterCapability_Request)
         is abstract;
 
+   procedure On_ShowDocument_Request
+     (Self    : access Client_Request_Receiver;
+      Message : LSP.Messages.Client_Requests.ShowDocument_Request)
+        is abstract;
+
 end LSP.Client_Request_Receivers;

source/protocol/lsp-messages-client_requests.adb

@@ -21,6 +21,17 @@ package body LSP.Messages.Client_Requests is
    -- Visit --
    -----------
 
+   overriding procedure Visit
+     (Self    : ShowDocument_Request;
+      Reciver : access Client_Request_Receiver'Class) is
+   begin
+      Reciver.On_ShowDocument_Request (Self);
+   end Visit;
+
+   -----------
+   -- Visit --
+   -----------
+
    overriding procedure Visit
      (Self    : ShowMessage_Request;
       Reciver : access Client_Request_Receiver'Class) is

source/protocol/lsp-messages-client_requests.ads

@@ -112,4 +112,17 @@ package LSP.Messages.Client_Requests is
      (Self    : UnregisterCapability_Request;
       Reciver : access Client_Request_Receiver'Class);
 
+   package ShowDocument_Requests is
+     new LSP.Generic_Requests
+       (Client_Request,
+        ShowDocumentParams,
+        Client_Request_Receiver'Class);
+
+   type ShowDocument_Request is
+     new ShowDocument_Requests.Request with null record;
+
+   overriding procedure Visit
+     (Self    : ShowDocument_Request;
+      Reciver : access Client_Request_Receiver'Class);
+
 end LSP.Messages.Client_Requests;

source/server/lsp-message_loggers.adb

@@ -1468,6 +1468,20 @@ package body LSP.Message_Loggers is
          & Image (Value));
    end On_WorkspaceFolders_Response;
 
+   -----------------------------
+   -- On_ShowDocument_Request --
+   -----------------------------
+
+   overriding procedure On_ShowDocument_Request
+     (Self   : access Message_Logger;
+      Value  : LSP.Messages.Client_Requests.ShowDocument_Request) is
+   begin
+      Self.Trace.Trace
+        ("ShowDocument_Request: "
+         & Image (Value)
+         & (+Value.params.uri));
+   end On_ShowDocument_Request;
+
    ----------------------------
    -- On_ShowMessage_Request --
    ----------------------------

source/server/lsp-message_loggers.ads

@@ -358,6 +358,10 @@ private
      (Self   : access Message_Logger;
       Value  : LSP.Messages.Client_Requests.ShowMessage_Request);
 
+   overriding procedure On_ShowDocument_Request
+     (Self   : access Message_Logger;
+      Value  : LSP.Messages.Client_Requests.ShowDocument_Request);
+
    overriding procedure On_Workspace_Folders_Request
      (Self  : access Message_Logger;
       Value : LSP.Messages.Client_Requests.Workspace_Folders_Request);

source/server/lsp-servers.adb

@@ -641,6 +641,17 @@ package body LSP.Servers is
       Self.Send_Request ("window/showMessageRequest", Message);
    end On_ShowMessage_Request;
 
+   -----------------------------
+   -- On_ShowDocument_Request --
+   -----------------------------
+
+   overriding procedure On_ShowDocument_Request
+     (Self    : access Server;
+      Message : LSP.Messages.Client_Requests.ShowDocument_Request) is
+   begin
+      Self.Send_Request ("window/showDocument", Message);
+   end On_ShowDocument_Request;
+
    -------------------------------------
    -- On_Workspace_Apply_Edit_Request --
    -------------------------------------

source/server/lsp-servers.ads

@@ -111,6 +111,10 @@ package LSP.Servers is
      (Self    : access Server;
       Message : LSP.Messages.Client_Requests.ShowMessage_Request);
 
+   overriding procedure On_ShowDocument_Request
+     (Self    : access Server;
+      Message : LSP.Messages.Client_Requests.ShowDocument_Request);
+
    overriding procedure On_Workspace_Apply_Edit_Request
      (Self    : access Server;
       Message : LSP.Messages.Client_Requests.Workspace_Apply_Edit_Request);