|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Next_Agent_To_Test, seg_056e18, separate Agent_Toolbox
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
separate (Agent_Toolbox)
procedure Next_Agent_To_Test (Agent_Name : out Orb_Defs.Name;
Agent_Connection : out Orb_Defs.Connection_Id;
Agent_Ip : out Orb_Defs.Host_Id;
Agent_Socket : out Orb_Defs.Socket_Id;
Error : out Boolean) is
Local_Error : Boolean;
begin
Error := False;
Local_Error := False;
loop
if Agent_To_Test = Service_Manager_Defs.Number_Of_Agent'Last then
Agent_To_Test := Service_Manager_Defs.Number_Of_Agent'First;
Local_Error := True;
Error := True;
exit;
end if;
exit when Agent_Table (Agent_To_Test).Exist = True;
Agent_To_Test := Agent_To_Test + 1;
end loop;
if not Local_Error then
Agent_Name := Agent_Table (Agent_To_Test).Agent_Name;
Agent_Connection := Agent_Table (Agent_To_Test).Agent_Connection;
Agent_Ip := Agent_Table (Agent_To_Test).Agent_Ip;
Agent_Socket := Agent_Table (Agent_To_Test).Agent_Socket;
else
Agent_Name := "No Agent";
Agent_Connection := Transport.Null_Connection_Id;
Agent_Ip := Orb_Defs.Null_Host_Id;
Agent_Socket := Orb_Defs.Null_Socket_Id;
end if;
end Next_Agent_To_Test;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=18 rec1=00 rec2=01 rec3=092
[0x01] rec0=0b rec1=00 rec2=02 rec3=001
tail 0x21763711287c570e7d1c0 0x42a00088462060003