Fix LSP_Gen to have working loggers.

Refs #1290

Author: reznikmm

source/lsp_gen/lsp_gen-configurations.adb

@@ -18,6 +18,7 @@
 with VSS.JSON.Pull_Readers.JSON5;
 with VSS.Strings.Character_Iterators;
 with VSS.Text_Streams.File_Input;
+with VSS.Transformers.Casing;       use VSS.Transformers.Casing;
 
 package body LSP_Gen.Configurations is
 
@@ -159,7 +160,7 @@ package body LSP_Gen.Configurations is
          --  Turn the first character too uppercase
          declare
             Upper : constant VSS.Strings.Virtual_String :=
-              Result.To_Simple_Uppercase;
+              To_Simple_Uppercase.Transform (Result);
             Left  : VSS.Strings.Character_Iterators.Character_Iterator :=
               Upper.At_First_Character;
          begin

source/lsp_gen/lsp_gen-mappings.adb

@@ -17,6 +17,7 @@
 
 with VSS.Characters;
 with VSS.Strings.Cursors.Iterators.Characters;
+with VSS.Transformers.Casing;       use VSS.Transformers.Casing;
 
 with LSP_Gen.String_Sets;
 
@@ -158,7 +159,9 @@ package body LSP_Gen.Mappings is
      return VSS.Strings.Virtual_String
    is
       use type VSS.Characters.Virtual_Character;
-      Keyword : constant VSS.Strings.Virtual_String := Text.To_Lowercase;
+
+      Keyword : constant VSS.Strings.Virtual_String :=
+        To_Lowercase.Transform (Text);
       Result  : VSS.Strings.Virtual_String;
    begin
       if Keywords.Contains (Keyword) then

source/lsp_gen/lsp_gen-notifications.adb

@@ -156,7 +156,7 @@ package body LSP_Gen.Notifications is
 
             Put_Line (")");
             Put_Line ("is");
-            Put_Line ("Ok : Boolean := False;");
+            Put_Line ("Ok : Boolean := True;");
             Put_Line ("begin");
             Put ("Self.Output.Put (""'");
             Put (J);

source/lsp_gen/lsp_gen-puts.adb

@@ -22,6 +22,7 @@ with VSS.Characters;
 with VSS.Strings.Conversions;
 with VSS.Strings.Cursors.Iterators.Characters;
 with VSS.Strings.Hash;
+with VSS.Transformers.Casing;       use VSS.Transformers.Casing;
 
 package body LSP_Gen.Puts is
 
@@ -82,7 +83,9 @@ package body LSP_Gen.Puts is
 
    procedure Put_Id (Id : VSS.Strings.Virtual_String) is
       use type VSS.Characters.Virtual_Character;
-      Keyword : constant VSS.Strings.Virtual_String := Id.To_Lowercase;
+
+      Keyword : constant VSS.Strings.Virtual_String :=
+        To_Lowercase.Transform (Id);
    begin
       if Keywords.Contains (Keyword) then
          if Id.At_First_Character.Element =

source/lsp_gen/lsp_gen-requests.adb

@@ -155,7 +155,7 @@ package body LSP_Gen.Requests is
 
          Put_Line (")");
          Put_Line ("is");
-         Put_Line ("Ok : Boolean := False;");
+         Put_Line ("Ok : Boolean := True;");
          Put_Line ("begin");
          Put ("Self.Output.Put (""'");
          Put (J);

source/lsp_gen/lsp_gen-responses.adb

@@ -179,7 +179,7 @@ package body LSP_Gen.Responses is
 
             Put_Line (")");
             Put_Line ("is");
-            Put_Line ("Ok : Boolean := False;");
+            Put_Line ("Ok : Boolean := True;");
             Put_Line ("begin");
             Put ("Self.Output.Put (""'");
             Put (J);
@@ -203,7 +203,7 @@ package body LSP_Gen.Responses is
       Put_Line ("Id : LSP.Structures.Integer_Or_Virtual_String;");
       Put_Line ("Value : LSP.Errors.ResponseError)");
       Put_Line ("is");
-      Put_Line ("Ok : Boolean := False;");
+      Put_Line ("Ok : Boolean := True;");
       Put_Line ("begin");
       Put ("Self.Output.Put (""'Error response'"", Ok);");
       Put_Line ("Self.Put_Id (Id, Ok);");