Skip to content

Commit 7d6dc9e

Browse files
reznikmmreznikmm
committed
Regenerate source code for loggers.
Refs #1290
1 parent d1c570b commit 7d6dc9e

7 files changed

+158
-158
lines changed

‎source/lsp_3.17/generated/lsp-base_notification_loggers.adb

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ package body LSP.Base_Notification_Loggers is
1313
overriding procedure On_CancelRequest_Notification
1414
(Self : in out Base_Notification_Logger;
1515
Value : LSP.Structures.CancelParams) is
16-
Ok : Boolean := False;
16+
Ok : Boolean := True;
1717
begin
1818
Self.Output.Put ("'$/cancelRequest'", Ok);
1919
Self.Output.Put (" Params : ", Ok);
@@ -25,7 +25,7 @@ package body LSP.Base_Notification_Loggers is
2525
overriding procedure On_Progress_Notification
2626
(Self : in out Base_Notification_Logger;
2727
Value : LSP.Structures.ProgressParams) is
28-
Ok : Boolean := False;
28+
Ok : Boolean := True;
2929
begin
3030
Self.Output.Put ("'$/progress'", Ok);
3131
Self.Output.Put (" Params : ", Ok);

‎source/lsp_3.17/generated/lsp-client_notification_loggers.adb

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ package body LSP.Client_Notification_Loggers is
1313
overriding procedure On_LogTrace_Notification
1414
(Self : in out Client_Notification_Logger;
1515
Value : LSP.Structures.LogTraceParams) is
16-
Ok : Boolean := False;
16+
Ok : Boolean := True;
1717
begin
1818
Self.Output.Put ("'$/logTrace'", Ok);
1919
Self.Output.Put (" Params : ", Ok);
@@ -25,7 +25,7 @@ package body LSP.Client_Notification_Loggers is
2525
overriding procedure On_Event_Notification
2626
(Self : in out Client_Notification_Logger;
2727
Value : LSP.Structures.LSPAny) is
28-
Ok : Boolean := False;
28+
Ok : Boolean := True;
2929
begin
3030
Self.Output.Put ("'telemetry/event'", Ok);
3131
Self.Output.Put (" Params : ", Ok);
@@ -37,7 +37,7 @@ package body LSP.Client_Notification_Loggers is
3737
overriding procedure On_PublishDiagnostics_Notification
3838
(Self : in out Client_Notification_Logger;
3939
Value : LSP.Structures.PublishDiagnosticsParams) is
40-
Ok : Boolean := False;
40+
Ok : Boolean := True;
4141
begin
4242
Self.Output.Put ("'textDocument/publishDiagnostics'", Ok);
4343
Self.Output.Put (" Params : ", Ok);
@@ -49,7 +49,7 @@ package body LSP.Client_Notification_Loggers is
4949
overriding procedure On_LogMessage_Notification
5050
(Self : in out Client_Notification_Logger;
5151
Value : LSP.Structures.LogMessageParams) is
52-
Ok : Boolean := False;
52+
Ok : Boolean := True;
5353
begin
5454
Self.Output.Put ("'window/logMessage'", Ok);
5555
Self.Output.Put (" Params : ", Ok);
@@ -61,7 +61,7 @@ package body LSP.Client_Notification_Loggers is
6161
overriding procedure On_ShowMessage_Notification
6262
(Self : in out Client_Notification_Logger;
6363
Value : LSP.Structures.ShowMessageParams) is
64-
Ok : Boolean := False;
64+
Ok : Boolean := True;
6565
begin
6666
Self.Output.Put ("'window/showMessage'", Ok);
6767
Self.Output.Put (" Params : ", Ok);

‎source/lsp_3.17/generated/lsp-client_request_loggers.adb

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ package body LSP.Client_Request_Loggers is
1414
(Self : in out Client_Request_Logger;
1515
Id : LSP.Structures.Integer_Or_Virtual_String;
1616
Value : LSP.Structures.RegistrationParams) is
17-
Ok : Boolean := False;
17+
Ok : Boolean := True;
1818
begin
1919
Self.Output.Put ("'client/registerCapability'", Ok);
2020
Self.Put_Id (Id, Ok);
@@ -28,7 +28,7 @@ package body LSP.Client_Request_Loggers is
2828
(Self : in out Client_Request_Logger;
2929
Id : LSP.Structures.Integer_Or_Virtual_String;
3030
Value : LSP.Structures.UnregistrationParams) is
31-
Ok : Boolean := False;
31+
Ok : Boolean := True;
3232
begin
3333
Self.Output.Put ("'client/unregisterCapability'", Ok);
3434
Self.Put_Id (Id, Ok);
@@ -42,7 +42,7 @@ package body LSP.Client_Request_Loggers is
4242
(Self : in out Client_Request_Logger;
4343
Id : LSP.Structures.Integer_Or_Virtual_String;
4444
Value : LSP.Structures.ShowDocumentParams) is
45-
Ok : Boolean := False;
45+
Ok : Boolean := True;
4646
begin
4747
Self.Output.Put ("'window/showDocument'", Ok);
4848
Self.Put_Id (Id, Ok);
@@ -56,7 +56,7 @@ package body LSP.Client_Request_Loggers is
5656
(Self : in out Client_Request_Logger;
5757
Id : LSP.Structures.Integer_Or_Virtual_String;
5858
Value : LSP.Structures.ShowMessageRequestParams) is
59-
Ok : Boolean := False;
59+
Ok : Boolean := True;
6060
begin
6161
Self.Output.Put ("'window/showMessageRequest'", Ok);
6262
Self.Put_Id (Id, Ok);
@@ -70,7 +70,7 @@ package body LSP.Client_Request_Loggers is
7070
(Self : in out Client_Request_Logger;
7171
Id : LSP.Structures.Integer_Or_Virtual_String;
7272
Value : LSP.Structures.WorkDoneProgressCreateParams) is
73-
Ok : Boolean := False;
73+
Ok : Boolean := True;
7474
begin
7575
Self.Output.Put ("'window/workDoneProgress/create'", Ok);
7676
Self.Put_Id (Id, Ok);
@@ -84,7 +84,7 @@ package body LSP.Client_Request_Loggers is
8484
(Self : in out Client_Request_Logger;
8585
Id : LSP.Structures.Integer_Or_Virtual_String;
8686
Value : LSP.Structures.ApplyWorkspaceEditParams) is
87-
Ok : Boolean := False;
87+
Ok : Boolean := True;
8888
begin
8989
Self.Output.Put ("'workspace/applyEdit'", Ok);
9090
Self.Put_Id (Id, Ok);
@@ -97,7 +97,7 @@ package body LSP.Client_Request_Loggers is
9797
overriding procedure On_Code_Lens_Refresh_Request
9898
(Self : in out Client_Request_Logger;
9999
Id : LSP.Structures.Integer_Or_Virtual_String) is
100-
Ok : Boolean := False;
100+
Ok : Boolean := True;
101101
begin
102102
Self.Output.Put ("'workspace/codeLens/refresh'", Ok);
103103
Self.Put_Id (Id, Ok);
@@ -108,7 +108,7 @@ package body LSP.Client_Request_Loggers is
108108
(Self : in out Client_Request_Logger;
109109
Id : LSP.Structures.Integer_Or_Virtual_String;
110110
Value : LSP.Structures.ConfigurationParams) is
111-
Ok : Boolean := False;
111+
Ok : Boolean := True;
112112
begin
113113
Self.Output.Put ("'workspace/configuration'", Ok);
114114
Self.Put_Id (Id, Ok);
@@ -121,7 +121,7 @@ package body LSP.Client_Request_Loggers is
121121
overriding procedure On_Diagnostic_Refresh_Request
122122
(Self : in out Client_Request_Logger;
123123
Id : LSP.Structures.Integer_Or_Virtual_String) is
124-
Ok : Boolean := False;
124+
Ok : Boolean := True;
125125
begin
126126
Self.Output.Put ("'workspace/diagnostic/refresh'", Ok);
127127
Self.Put_Id (Id, Ok);
@@ -131,7 +131,7 @@ package body LSP.Client_Request_Loggers is
131131
overriding procedure On_Inlay_Refresh_Request
132132
(Self : in out Client_Request_Logger;
133133
Id : LSP.Structures.Integer_Or_Virtual_String) is
134-
Ok : Boolean := False;
134+
Ok : Boolean := True;
135135
begin
136136
Self.Output.Put ("'workspace/inlayHint/refresh'", Ok);
137137
Self.Put_Id (Id, Ok);
@@ -141,7 +141,7 @@ package body LSP.Client_Request_Loggers is
141141
overriding procedure On_Inline_Refresh_Request
142142
(Self : in out Client_Request_Logger;
143143
Id : LSP.Structures.Integer_Or_Virtual_String) is
144-
Ok : Boolean := False;
144+
Ok : Boolean := True;
145145
begin
146146
Self.Output.Put ("'workspace/inlineValue/refresh'", Ok);
147147
Self.Put_Id (Id, Ok);
@@ -151,7 +151,7 @@ package body LSP.Client_Request_Loggers is
151151
overriding procedure On_Tokens_Refresh_Request
152152
(Self : in out Client_Request_Logger;
153153
Id : LSP.Structures.Integer_Or_Virtual_String) is
154-
Ok : Boolean := False;
154+
Ok : Boolean := True;
155155
begin
156156
Self.Output.Put ("'workspace/semanticTokens/refresh'", Ok);
157157
Self.Put_Id (Id, Ok);
@@ -161,7 +161,7 @@ package body LSP.Client_Request_Loggers is
161161
overriding procedure On_WorkspaceFolders_Request
162162
(Self : in out Client_Request_Logger;
163163
Id : LSP.Structures.Integer_Or_Virtual_String) is
164-
Ok : Boolean := False;
164+
Ok : Boolean := True;
165165
begin
166166
Self.Output.Put ("'workspace/workspaceFolders'", Ok);
167167
Self.Put_Id (Id, Ok);

0 commit comments

Comments
 (0)