54 lines
1.7 KiB
INI
54 lines
1.7 KiB
INI
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;
|