PolyORB/Examples/DSMStorage/server.adb at 9cedc4a3a89ebf4e762bee78f6101e3dc514bbe8 - PolyORB - ProxGit

ada/PolyORB

mirror of https://github.com/AdaCore/PolyORB.git synced 2026-02-12 13:01:15 -08:00

Files

Laurent Pautet 0e0c90ced5 Use a protected object as a workaround to the problem reported in

B930-014

Subversion-branch: /importfromcvs/trunk
Subversion-revision: 47846

2002-10-15 21:36:19 +00:00

19 lines

321 B

Ada

Raw Blame History

 with GNAT.IO; use GNAT.IO;
 with Vector;  use Vector;
 with Scheduler;
 with Client;
 procedure Server is
 begin
    Client;
    Put ("(");
    for I in Content_Type'Range loop
       Put (Content.Value (I)'Img);
       if I /= Content_Type'Last then
          Put (",");
       end if;
    end loop;
    Put_Line (")");
 end Server;