DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦dbc6630a0⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Agent, seg_057eba, seg_058269

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

E3 Source Code



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;

E3 Meta Data

    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