mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
eba79fbdf9
* Add initial DSA documentation. [Imported from Perforce change 10409 at 2006-12-01 22:55:23] Subversion-branch: /trunk/polyorb Subversion-revision: 37868
9 lines
212 B
Ada
9 lines
212 B
Ada
with Ada.Text_IO; use Ada.Text_IO;
|
|
with Server;
|
|
procedure Client is
|
|
begin
|
|
Put_Line ("The client has started!");
|
|
Put ("Thus spake my server upon me:");
|
|
Put_Line (Server.Echo_String ("Hi!"));
|
|
end Client;
|