ada_language_server_23.0.0_66f2e7fb/source/server/lsp-servers-decode_request.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
------------------------------------------------------------------------------
--                         Language Server Protocol                         --
--                                                                          --
--                     Copyright (C) 2018-2021, AdaCore                     --
--                                                                          --
-- This is free software;  you can redistribute it  and/or modify it  under --
-- terms of the  GNU General Public License as published  by the Free Soft- --
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
-- sion.  This software is distributed in the hope  that it will be useful, --
-- but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN- --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public --
-- License for  more details.  You should have  received  a copy of the GNU --
-- General  Public  License  distributed  with  this  software;   see  file --
-- COPYING3.  If not, go to http://www.gnu.org/licenses for a complete copy --
-- of the license.                                                          --
------------------------------------------------------------------------------

with Ada.Tags; use Ada.Tags;
with Ada.Tags.Generic_Dispatching_Constructor;

with VSS.JSON.Pull_Readers.Simple;

with LSP.JSON_Streams;
with LSP.Messages.Server_Requests; use LSP.Messages.Server_Requests;

function LSP.Servers.Decode_Request
   (Document : VSS.Text_Streams.Input_Text_Stream_Access;
    Method   : VSS.Strings.Virtual_String)
    return LSP.Messages.Server_Requests.Server_Request'Class
is
   function Constructor is new Ada.Tags.Generic_Dispatching_Constructor
     (T           => LSP.Messages.Server_Requests.Server_Request,
      Parameters  => LSP.JSON_Streams.JSON_Stream,
      Constructor => LSP.Messages.Server_Requests.Decode);

   R   : aliased VSS.JSON.Pull_Readers.Simple.JSON_Simple_Pull_Reader;
   JS  : aliased LSP.JSON_Streams.JSON_Stream
     (Is_Server_Side => True, R => R'Unchecked_Access);
   Tag : constant Ada.Tags.Tag :=
     LSP.Messages.Server_Requests.Method_To_Tag (Method);

begin
   R.Set_Stream (Document);
   JS.R.Read_Next;
   pragma Assert (JS.R.Is_Start_Document);
   JS.R.Read_Next;

   if Tag in Ada.Tags.No_Tag then
      raise Unknown_Method;
   else
      return Constructor (Tag, JS'Access);
   end if;
end LSP.Servers.Decode_Request;