Skip to content

Commit e709d67

Browse files
reznikmmreznikmm
committed
Regenerate LSP 3.17 code after changes in LSP_Gen.
Refs #1170
1 parent 2e2a295 commit e709d67

14 files changed

+3201
-0
lines changed

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

Lines changed: 37 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,37 @@
1+
--
2+
-- Copyright (C) <YEAR>, <COPYRIGHT HOLDER>
3+
--
4+
-- SPDX-License-Identifier: MIT
5+
--
6+
-- DON'T EDIT THIS FILE! It was generated from metaModel.json.
7+
--
8+
9+
with VSS.Strings;
10+
11+
package body LSP.Base_Notification_Loggers is
12+
13+
overriding procedure On_CancelRequest_Notification
14+
(Self : in out Base_Notification_Logger;
15+
Value : LSP.Structures.CancelParams) is
16+
Ok : Boolean := False;
17+
begin
18+
Self.Output.Put ("'$/cancelRequest'", Ok);
19+
Self.Output.Put (" Params : ", Ok);
20+
Self.Output.Put
21+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
22+
Self.Output.New_Line (Ok);
23+
end On_CancelRequest_Notification;
24+
25+
overriding procedure On_Progress_Notification
26+
(Self : in out Base_Notification_Logger;
27+
Value : LSP.Structures.ProgressParams) is
28+
Ok : Boolean := False;
29+
begin
30+
Self.Output.Put ("'$/progress'", Ok);
31+
Self.Output.Put (" Params : ", Ok);
32+
Self.Output.Put
33+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
34+
Self.Output.New_Line (Ok);
35+
end On_Progress_Notification;
36+
37+
end LSP.Base_Notification_Loggers;

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

Lines changed: 29 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,29 @@
1+
--
2+
-- Copyright (C) <YEAR>, <COPYRIGHT HOLDER>
3+
--
4+
-- SPDX-License-Identifier: MIT
5+
--
6+
-- DON'T EDIT THIS FILE! It was generated from metaModel.json.
7+
--
8+
9+
with VSS.Text_Streams;
10+
with LSP.Structures;
11+
with LSP.Base_Notification_Receivers;
12+
13+
package LSP.Base_Notification_Loggers is
14+
pragma Preelaborate;
15+
16+
type Base_Notification_Logger
17+
(Output : access VSS.Text_Streams.Output_Text_Stream'Class) is
18+
new LSP.Base_Notification_Receivers.Base_Notification_Receiver with
19+
null record;
20+
21+
overriding procedure On_CancelRequest_Notification
22+
(Self : in out Base_Notification_Logger;
23+
Value : LSP.Structures.CancelParams);
24+
25+
overriding procedure On_Progress_Notification
26+
(Self : in out Base_Notification_Logger;
27+
Value : LSP.Structures.ProgressParams);
28+
29+
end LSP.Base_Notification_Loggers;

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

Lines changed: 73 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,73 @@
1+
--
2+
-- Copyright (C) <YEAR>, <COPYRIGHT HOLDER>
3+
--
4+
-- SPDX-License-Identifier: MIT
5+
--
6+
-- DON'T EDIT THIS FILE! It was generated from metaModel.json.
7+
--
8+
9+
with VSS.Strings;
10+
11+
package body LSP.Client_Notification_Loggers is
12+
13+
overriding procedure On_LogTrace_Notification
14+
(Self : in out Client_Notification_Logger;
15+
Value : LSP.Structures.LogTraceParams) is
16+
Ok : Boolean := False;
17+
begin
18+
Self.Output.Put ("'$/logTrace'", Ok);
19+
Self.Output.Put (" Params : ", Ok);
20+
Self.Output.Put
21+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
22+
Self.Output.New_Line (Ok);
23+
end On_LogTrace_Notification;
24+
25+
overriding procedure On_Event_Notification
26+
(Self : in out Client_Notification_Logger;
27+
Value : LSP.Structures.LSPAny) is
28+
Ok : Boolean := False;
29+
begin
30+
Self.Output.Put ("'telemetry/event'", Ok);
31+
Self.Output.Put (" Params : ", Ok);
32+
Self.Output.Put
33+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
34+
Self.Output.New_Line (Ok);
35+
end On_Event_Notification;
36+
37+
overriding procedure On_PublishDiagnostics_Notification
38+
(Self : in out Client_Notification_Logger;
39+
Value : LSP.Structures.PublishDiagnosticsParams) is
40+
Ok : Boolean := False;
41+
begin
42+
Self.Output.Put ("'textDocument/publishDiagnostics'", Ok);
43+
Self.Output.Put (" Params : ", Ok);
44+
Self.Output.Put
45+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
46+
Self.Output.New_Line (Ok);
47+
end On_PublishDiagnostics_Notification;
48+
49+
overriding procedure On_LogMessage_Notification
50+
(Self : in out Client_Notification_Logger;
51+
Value : LSP.Structures.LogMessageParams) is
52+
Ok : Boolean := False;
53+
begin
54+
Self.Output.Put ("'window/logMessage'", Ok);
55+
Self.Output.Put (" Params : ", Ok);
56+
Self.Output.Put
57+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
58+
Self.Output.New_Line (Ok);
59+
end On_LogMessage_Notification;
60+
61+
overriding procedure On_ShowMessage_Notification
62+
(Self : in out Client_Notification_Logger;
63+
Value : LSP.Structures.ShowMessageParams) is
64+
Ok : Boolean := False;
65+
begin
66+
Self.Output.Put ("'window/showMessage'", Ok);
67+
Self.Output.Put (" Params : ", Ok);
68+
Self.Output.Put
69+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
70+
Self.Output.New_Line (Ok);
71+
end On_ShowMessage_Notification;
72+
73+
end LSP.Client_Notification_Loggers;

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

Lines changed: 40 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,40 @@
1+
--
2+
-- Copyright (C) <YEAR>, <COPYRIGHT HOLDER>
3+
--
4+
-- SPDX-License-Identifier: MIT
5+
--
6+
-- DON'T EDIT THIS FILE! It was generated from metaModel.json.
7+
--
8+
9+
with LSP.Base_Notification_Loggers;
10+
with LSP.Structures;
11+
with LSP.Client_Notification_Receivers;
12+
13+
package LSP.Client_Notification_Loggers is
14+
pragma Preelaborate;
15+
16+
type Client_Notification_Logger is
17+
new LSP.Base_Notification_Loggers.Base_Notification_Logger and
18+
LSP.Client_Notification_Receivers.Client_Notification_Receiver with
19+
null record;
20+
21+
overriding procedure On_LogTrace_Notification
22+
(Self : in out Client_Notification_Logger;
23+
Value : LSP.Structures.LogTraceParams);
24+
25+
overriding procedure On_Event_Notification
26+
(Self : in out Client_Notification_Logger; Value : LSP.Structures.LSPAny);
27+
28+
overriding procedure On_PublishDiagnostics_Notification
29+
(Self : in out Client_Notification_Logger;
30+
Value : LSP.Structures.PublishDiagnosticsParams);
31+
32+
overriding procedure On_LogMessage_Notification
33+
(Self : in out Client_Notification_Logger;
34+
Value : LSP.Structures.LogMessageParams);
35+
36+
overriding procedure On_ShowMessage_Notification
37+
(Self : in out Client_Notification_Logger;
38+
Value : LSP.Structures.ShowMessageParams);
39+
40+
end LSP.Client_Notification_Loggers;

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

Lines changed: 186 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,186 @@
1+
--
2+
-- Copyright (C) <YEAR>, <COPYRIGHT HOLDER>
3+
--
4+
-- SPDX-License-Identifier: MIT
5+
--
6+
-- DON'T EDIT THIS FILE! It was generated from metaModel.json.
7+
--
8+
9+
with VSS.Strings;
10+
11+
package body LSP.Client_Request_Loggers is
12+
13+
overriding procedure On_RegisterCapability_Request
14+
(Self : in out Client_Request_Logger;
15+
Id : LSP.Structures.Integer_Or_Virtual_String;
16+
Value : LSP.Structures.RegistrationParams) is
17+
Ok : Boolean := False;
18+
begin
19+
Self.Output.Put ("'client/registerCapability'", Ok);
20+
Self.Put_Id (Id, Ok);
21+
Self.Output.Put (" Params : ", Ok);
22+
Self.Output.Put
23+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
24+
Self.Output.New_Line (Ok);
25+
end On_RegisterCapability_Request;
26+
27+
overriding procedure On_UnregisterCapability_Request
28+
(Self : in out Client_Request_Logger;
29+
Id : LSP.Structures.Integer_Or_Virtual_String;
30+
Value : LSP.Structures.UnregistrationParams) is
31+
Ok : Boolean := False;
32+
begin
33+
Self.Output.Put ("'client/unregisterCapability'", Ok);
34+
Self.Put_Id (Id, Ok);
35+
Self.Output.Put (" Params : ", Ok);
36+
Self.Output.Put
37+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
38+
Self.Output.New_Line (Ok);
39+
end On_UnregisterCapability_Request;
40+
41+
overriding procedure On_ShowDocument_Request
42+
(Self : in out Client_Request_Logger;
43+
Id : LSP.Structures.Integer_Or_Virtual_String;
44+
Value : LSP.Structures.ShowDocumentParams) is
45+
Ok : Boolean := False;
46+
begin
47+
Self.Output.Put ("'window/showDocument'", Ok);
48+
Self.Put_Id (Id, Ok);
49+
Self.Output.Put (" Params : ", Ok);
50+
Self.Output.Put
51+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
52+
Self.Output.New_Line (Ok);
53+
end On_ShowDocument_Request;
54+
55+
overriding procedure On_ShowMessageRequest_Request
56+
(Self : in out Client_Request_Logger;
57+
Id : LSP.Structures.Integer_Or_Virtual_String;
58+
Value : LSP.Structures.ShowMessageRequestParams) is
59+
Ok : Boolean := False;
60+
begin
61+
Self.Output.Put ("'window/showMessageRequest'", Ok);
62+
Self.Put_Id (Id, Ok);
63+
Self.Output.Put (" Params : ", Ok);
64+
Self.Output.Put
65+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
66+
Self.Output.New_Line (Ok);
67+
end On_ShowMessageRequest_Request;
68+
69+
overriding procedure On_Progress_Create_Request
70+
(Self : in out Client_Request_Logger;
71+
Id : LSP.Structures.Integer_Or_Virtual_String;
72+
Value : LSP.Structures.WorkDoneProgressCreateParams) is
73+
Ok : Boolean := False;
74+
begin
75+
Self.Output.Put ("'window/workDoneProgress/create'", Ok);
76+
Self.Put_Id (Id, Ok);
77+
Self.Output.Put (" Params : ", Ok);
78+
Self.Output.Put
79+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
80+
Self.Output.New_Line (Ok);
81+
end On_Progress_Create_Request;
82+
83+
overriding procedure On_ApplyEdit_Request
84+
(Self : in out Client_Request_Logger;
85+
Id : LSP.Structures.Integer_Or_Virtual_String;
86+
Value : LSP.Structures.ApplyWorkspaceEditParams) is
87+
Ok : Boolean := False;
88+
begin
89+
Self.Output.Put ("'workspace/applyEdit'", Ok);
90+
Self.Put_Id (Id, Ok);
91+
Self.Output.Put (" Params : ", Ok);
92+
Self.Output.Put
93+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
94+
Self.Output.New_Line (Ok);
95+
end On_ApplyEdit_Request;
96+
97+
overriding procedure On_Code_Lens_Refresh_Request
98+
(Self : in out Client_Request_Logger;
99+
Id : LSP.Structures.Integer_Or_Virtual_String) is
100+
Ok : Boolean := False;
101+
begin
102+
Self.Output.Put ("'workspace/codeLens/refresh'", Ok);
103+
Self.Put_Id (Id, Ok);
104+
Self.Output.New_Line (Ok);
105+
end On_Code_Lens_Refresh_Request;
106+
107+
overriding procedure On_Configuration_Request
108+
(Self : in out Client_Request_Logger;
109+
Id : LSP.Structures.Integer_Or_Virtual_String;
110+
Value : LSP.Structures.ConfigurationParams) is
111+
Ok : Boolean := False;
112+
begin
113+
Self.Output.Put ("'workspace/configuration'", Ok);
114+
Self.Put_Id (Id, Ok);
115+
Self.Output.Put (" Params : ", Ok);
116+
Self.Output.Put
117+
(VSS.Strings.To_Virtual_String (Value'Wide_Wide_Image), Ok);
118+
Self.Output.New_Line (Ok);
119+
end On_Configuration_Request;
120+
121+
overriding procedure On_Diagnostic_Refresh_Request
122+
(Self : in out Client_Request_Logger;
123+
Id : LSP.Structures.Integer_Or_Virtual_String) is
124+
Ok : Boolean := False;
125+
begin
126+
Self.Output.Put ("'workspace/diagnostic/refresh'", Ok);
127+
Self.Put_Id (Id, Ok);
128+
Self.Output.New_Line (Ok);
129+
end On_Diagnostic_Refresh_Request;
130+
131+
overriding procedure On_Inlay_Refresh_Request
132+
(Self : in out Client_Request_Logger;
133+
Id : LSP.Structures.Integer_Or_Virtual_String) is
134+
Ok : Boolean := False;
135+
begin
136+
Self.Output.Put ("'workspace/inlayHint/refresh'", Ok);
137+
Self.Put_Id (Id, Ok);
138+
Self.Output.New_Line (Ok);
139+
end On_Inlay_Refresh_Request;
140+
141+
overriding procedure On_Inline_Refresh_Request
142+
(Self : in out Client_Request_Logger;
143+
Id : LSP.Structures.Integer_Or_Virtual_String) is
144+
Ok : Boolean := False;
145+
begin
146+
Self.Output.Put ("'workspace/inlineValue/refresh'", Ok);
147+
Self.Put_Id (Id, Ok);
148+
Self.Output.New_Line (Ok);
149+
end On_Inline_Refresh_Request;
150+
151+
overriding procedure On_Tokens_Refresh_Request
152+
(Self : in out Client_Request_Logger;
153+
Id : LSP.Structures.Integer_Or_Virtual_String) is
154+
Ok : Boolean := False;
155+
begin
156+
Self.Output.Put ("'workspace/semanticTokens/refresh'", Ok);
157+
Self.Put_Id (Id, Ok);
158+
Self.Output.New_Line (Ok);
159+
end On_Tokens_Refresh_Request;
160+
161+
overriding procedure On_WorkspaceFolders_Request
162+
(Self : in out Client_Request_Logger;
163+
Id : LSP.Structures.Integer_Or_Virtual_String) is
164+
Ok : Boolean := False;
165+
begin
166+
Self.Output.Put ("'workspace/workspaceFolders'", Ok);
167+
Self.Put_Id (Id, Ok);
168+
Self.Output.New_Line (Ok);
169+
end On_WorkspaceFolders_Request;
170+
171+
procedure Put_Id
172+
(Self : in out Client_Request_Logger'Class;
173+
Id : LSP.Structures.Integer_Or_Virtual_String;
174+
Ok : in out Boolean) is
175+
begin
176+
Self.Output.Put (" Id=", Ok);
177+
178+
if Id.Is_Integer then
179+
Self.Output.Put
180+
(VSS.Strings.To_Virtual_String (Id.Integer'Wide_Wide_Image), Ok);
181+
else
182+
Self.Output.Put (Id.Virtual_String, Ok);
183+
end if;
184+
end Put_Id;
185+
186+
end LSP.Client_Request_Loggers;

0 commit comments

Comments
 (0)