mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
b2bf6d3876
asynchronous RPC, RAS and RACW. Subversion-branch: /importfromcvs/trunk Subversion-revision: 46751
19 lines
404 B
Ada
19 lines
404 B
Ada
with Text_IO; use Text_IO;
|
|
with Types; use Types;
|
|
with Common; use Common;
|
|
with Scheduler; use Scheduler;
|
|
procedure Server is
|
|
W : Any_Worker;
|
|
Q : Query;
|
|
begin
|
|
while Continue loop
|
|
Pop (W, Q);
|
|
if W /= null then
|
|
Put_Line ("Query" & Q'Img & " is going to be executed");
|
|
Work (W, Q, Save'Access);
|
|
else
|
|
delay 1.0;
|
|
end if;
|
|
end loop;
|
|
end Server;
|