Server.Start add way to specify the host to bind to.

Starting a server with the simple Start API was only supporting
binding to all available devices.

eng/toolchain/aws#50.

Author: TurboGit

src/core/aws-net.adb

@@ -645,9 +645,9 @@ package body AWS.Net is
    -----------------
 
    procedure Socket_Pair (S1, S2 : out Socket_Type) is
-      Server : Std.Socket_Type;
       subtype STC is Socket_Type'Class;
       Local_Host : constant String := "127.0.0.1";
+      Server     : Std.Socket_Type;
    begin
       Std.Bind (Server, Host => Local_Host, Port => 0);
       Std.Listen (Server);

src/core/aws-server.adb

@@ -1187,6 +1187,7 @@ package body AWS.Server is
       Callback                  : Response.Callback;
       Max_Connection            : Positive  := Default.Max_Connection;
       Admin_URI                 : String    := Default.Admin_URI;
+      Host                      : String    := "";
       Port                      : Natural   := Default.Server_Port;
       Security                  : Boolean   := False;
       Session                   : Boolean   := False;
@@ -1196,6 +1197,7 @@ package body AWS.Server is
    begin
       CNF.Set.Server_Name      (Web_Server.Properties, Name);
       CNF.Set.Admin_URI        (Web_Server.Properties, Admin_URI);
+      CNF.Set.Server_Host      (Web_Server.Properties, Host);
       CNF.Set.Server_Port      (Web_Server.Properties, Port);
       CNF.Set.Security         (Web_Server.Properties, Security);
       CNF.Set.Session          (Web_Server.Properties, Session);

src/core/aws-server.ads

@@ -99,6 +99,7 @@ package AWS.Server is
       Callback                  : Response.Callback;
       Max_Connection            : Positive  := Default.Max_Connection;
       Admin_URI                 : String    := Default.Admin_URI;
+      Host                      : String    := "";
       Port                      : Natural   := Default.Server_Port;
       Security                  : Boolean   := False;
       Session                   : Boolean   := False;