configuration simple_DSA is pragma Starter (none); -- -- Tell 'po_gnatdist' to not create any startup script or launcher (more on this in a later tute). -- We will launch our Server and Client partitions manually from a console. -- Server -- server_Partition : partition := (gel_demo_Services); -- -- Declare the Server partition and assign the 'Server' remote call interface package to this partition. procedure launch_Server is in server_Partition; -- -- Tell po_gnatdist that the 'start_Server' procedure is the the Servers 'main' subprogram or launcher. -- Client -- client_Partition : partition; -- -- Declare the Client partition (which has no remote call interface package associated with it, so no 'initialisation' is required). procedure launch_Client; -- -- Declare the Clients 'main' subprogram or launcher. for client_Partition'Main use launch_Client; -- -- Tell po_gnatdist to assign the above declared 'start_Client' procedure as the Clients 'main' subprogram or launcher. for client_Partition'Termination use Local_Termination; -- -- Tell po_Gnatdist that Clients may terminate locally (more on this later). -- Misc -- for Partition'Directory use "bin"; -- -- Ask po_gnatdist to place the built Client and Server partition executables in the './bin' sub-folder. end simple_DSA;