adayaml_0.3.0_ab19e387/server/src/yaml-server.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
with Ada.Text_IO;
with Yaml.Servers;
with GNAT.Sockets.Server;

procedure Yaml.Server is
   Factory : aliased Servers.Yaml_Factory (200, 80, 8192, 100);
   Server  : Servers.Server.Connections_Server (Factory'Access, 8088);
   pragma Unreferenced (Server);
begin
   Factory.Trace_On (GNAT.Sockets.Server.Trace_Decoded,
                     GNAT.Sockets.Server.Trace_Decoded);
   Ada.Text_IO.Put_Line ("HTTP server started.");
   loop
      delay 60.0;
   end loop;
end Yaml.Server;