|
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: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Agent, seg_057eba, seg_058269
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Agent_Nb;
with Filter;
with Class;
with Spy_List;
with Method_Name_List;
with Method_Defs;
with Spy;
package Agent is
use Method_Defs;
use Agent_Nb;
use Filter;
use Class;
use Spy_List;
use Spy;
type T_Agent is private;
procedure Create_Agent (Agent : out T_Agent);
procedure Init_Agent (Agent : in out T_Agent;
Agent_Nb : in T_Agent_Nb;
The_Class : in Typ_Agent_Class;
The_Method_Name : in T_Method_Name);
procedure Add_Methode (The_Method_Name : in T_Method_Name;
The_Agent : in out T_Agent);
procedure Add_Spy (The_Spy : in T_Spy; The_Agent : in out T_Agent);
procedure Add_Filter (The_Filter : in T_Filter; The_Agent : in out T_Agent);
procedure Remove_Method (The_Method_Name : in T_Method_Name;
The_Agent : in out T_Agent);
procedure Remove_Spy (The_Spy : in T_Spy; The_Agent : in out T_Agent);
procedure Remove_Filter (The_Agent : in out T_Agent);
procedure Delete_Agent (The_Agent : in out T_Agent);
procedure Consult_Agent_Nb (Th_Agent : in T_Agent;
The_Agent_Nb : out T_Agent_Nb);
procedure Consult_Method_Name (Agent : in T_Agent;
The_Method_List : out Method_Name_List.Set);
procedure Consult_Filter (Agent : in T_Agent; Filter : out T_Filter);
procedure Consult_The_Spy_List (The_Agent : in T_Agent;
The_Spy_List : out Spy_List.Set);
procedure Consult_Class (Agent : in T_Agent;
The_Agent_Class : out Typ_Agent_Class);
function Is_Filtered (Agent : in T_Agent) return Boolean;
function Is_Spied (Agent : in T_Agent) return Boolean;
private
use Method_Name_List;
type T_Agent is
record
Agent_Nb : T_Agent_Nb;
The_Class : Typ_Agent_Class;
Method_List : Method_Name_List.Set;
The_Spy_List : Spy_List.Set;
Filter : T_Filter;
end record;
end Agent;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=1d rec1=00 rec2=01 rec3=04c
[0x01] rec0=14 rec1=00 rec2=03 rec3=02e
[0x02] rec0=09 rec1=00 rec2=02 rec3=000
tail 0x21763e10487c654b0d16c 0x42a00088462060003