From 0d398b03d52cbf927e6ffe4328ea32b1f021399e Mon Sep 17 00:00:00 2001
From: Per Sandberg <per.sandberg@saabgroup.com>
Date: Thu, 9 Apr 2020 10:44:29 +0200
Subject: [PATCH] Get rid of the warnings in the "server" as well

---
 .gitignore                          | 3 +++
 server/src/yaml-servers.ads         | 4 +++-
 src/implementation/yaml-inspect.adb | 5 +++--
 yaml_all.gpr                        | 7 +++++++
 4 files changed, 16 insertions(+), 3 deletions(-)
 create mode 100644 yaml_all.gpr

diff --git a/.gitignore b/.gitignore
index 341436d..d4686c2 100644
--- a/.gitignore
+++ b/.gitignore
@@ -7,3 +7,6 @@ gnatinspect.db
 *.cswi
 *-loc.xml
 cvg
+messages.txt
+*.cgpr
+
diff --git a/server/src/yaml-servers.ads b/server/src/yaml-servers.ads
index 73f05c8..7a5439e 100644
--- a/server/src/yaml-servers.ads
+++ b/server/src/yaml-servers.ads
@@ -12,7 +12,7 @@ package Yaml.Servers is
      new Server.Connections_Factory with null record;
 
    type Yaml_Client is new HTTP.HTTP_Client with null record;
-
+   pragma Warnings (Off, "formal parameter ""From"" is not referenced");
    overriding function Create (Factory  : access Yaml_Factory;
                                Listener : access Server.Connections_Server'Class;
                                From     : GNAT.Sockets.Sock_Addr_Type)
@@ -22,5 +22,7 @@ package Yaml.Servers is
                        Input_Size     => Factory.Input_Size,
                        Output_Size    => Factory.Output_Size));
 
+   pragma Warnings (On, "formal parameter ""From"" is not referenced");
+
    overriding procedure Do_Get (Client : in out Yaml_Client);
 end Yaml.Servers;
diff --git a/src/implementation/yaml-inspect.adb b/src/implementation/yaml-inspect.adb
index c9502eb..9199ffa 100644
--- a/src/implementation/yaml-inspect.adb
+++ b/src/implementation/yaml-inspect.adb
@@ -4,8 +4,9 @@
 with Ada.Exceptions;
 with Yaml.Events.Queue;
 with Yaml.Parser;
-
+With GNAT.Strings;
 procedure Yaml.Inspect (Input : String) is
+   use GNAT.Strings;
    type Error_Kind is (None, From_Lexer, From_Parser);
 
    P : Parser.Instance;
@@ -15,7 +16,7 @@ procedure Yaml.Inspect (Input : String) is
    Read_Events : constant Events.Queue.Reference := Events.Queue.New_Queue;
    Occurred_Error : Error_Kind := None;
    Lexer_Token_Start, Lexer_Token_End : Mark;
-   Exception_Message : access String;
+   Exception_Message : String_Access;
 begin
    P.Set_Input (Input);
    Start_Emitting;
diff --git a/yaml_all.gpr b/yaml_all.gpr
new file mode 100644
index 0000000..fa53b3a
--- /dev/null
+++ b/yaml_all.gpr
@@ -0,0 +1,7 @@
+Aggregate project Yaml_All is
+   for Project_Files use project'Project_Files & ("yaml-annotation_processor.gpr");
+   for Project_Files use project'Project_Files & ("yaml.gpr");
+   for Project_Files use project'Project_Files & ("yaml-server.gpr");
+   for Project_Files use project'Project_Files & ("yaml-tests.gpr");
+   for Project_Files use project'Project_Files & ("yaml-utils.gpr");
+end Yaml_All;