T826-026 New Visit method has been added

Contains Token as a parameter for handlers that need it.

Author: ogorodnik

source/protocol/lsp-generic_notifications.adb

@@ -17,7 +17,6 @@
 
 with VSS.Strings.Conversions;
 
-with LSP.Types;
 with LSP.Messages.Common_Writers;
 
 package body LSP.Generic_Notifications is
@@ -81,6 +80,18 @@ package body LSP.Generic_Notifications is
       raise Program_Error;
    end Visit;
 
+   -----------
+   -- Visit --
+   -----------
+
+   procedure Visit
+     (Self    : Notification;
+      Token   : LSP.Types.LSP_Number_Or_String;
+      Handler : access Visitor) is
+   begin
+      raise Program_Error;
+   end Visit;
+
    -----------
    -- Write --
    -----------

source/protocol/lsp-generic_notifications.ads

@@ -22,6 +22,7 @@ with Ada.Streams;
 
 with LSP.JSON_Streams;
 with LSP.Messages;
+with LSP.Types;
 
 generic
    type Base_Message is abstract new LSP.Messages.NotificationMessage
@@ -45,6 +46,11 @@ package LSP.Generic_Notifications is
      (Self    : Notification;
       Handler : access Visitor);
 
+   procedure Visit
+     (Self    : Notification;
+      Token   : LSP.Types.LSP_Number_Or_String;
+      Handler : access Visitor);
+
    procedure Read
      (S : access Ada.Streams.Root_Stream_Type'Class;
       V : out Notification);