About Us Products Articles News Contact Support

Programming Distributed Systems with YAMI4

6.1.5 Ada

Assuming that the agent object was already created, an Ada server that intends to establish a ``wildcard'' listener can execute the following code:

declare
   Resolved_Target : String (1 .. Max_Target_Length);
   Resolved_Target_Last : Natural;
begin
   My_Agent.Add_Listener
     ("tcp://*:*", Resolved_Target, Resolved_Target_Last);
   --  ...
end;

After that, the slice Resolved_Target (1 .. Resolved_Target_Last) will contain the resolved target for the newly added listener.