with GNAT.Sockets.Connection_State_Machine.HTTP_Server;
with GNAT.Sockets.Server;
package Yaml.Servers is
package HTTP renames GNAT.Sockets.Connection_State_Machine.HTTP_Server;
package Server renames GNAT.Sockets.Server;
type Yaml_Factory (Request_Length : Positive;
Input_Size : Server.Buffer_Length;
Output_Size : Server.Buffer_Length;
Max_Connections : Positive) is
new Server.Connections_Factory with null record;
type Yaml_Client is new HTTP.HTTP_Client with null record;
overriding function Create (Factory : access Yaml_Factory;
Listener : access Server.Connections_Server'Class;
From : GNAT.Sockets.Sock_Addr_Type)
return Server.Connection_Ptr is
(new Yaml_Client (Listener => Listener.all'Unchecked_Access,
Request_Length => Factory.Request_Length,
Input_Size => Factory.Input_Size,
Output_Size => Factory.Output_Size));
overriding procedure Do_Get (Client : in out Yaml_Client);
end Yaml.Servers;