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

⟦9b79459dd⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Agent, seg_057ebb, seg_058272

Derivation

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

package body Agent is
    procedure Create_Agent (Agent : out T_Agent) is
        One_Method_List : Method_Name_List.Set;
        One_Spy_List : Spy_List.Set;
    begin
        Initialize (One_Method_List);
        Initialize (One_Spy_List);
        Agent.Method_List := One_Method_List;
        Agent.The_Spy_List := One_Spy_List;
    end Create_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) is
    begin
        Agent.Agent_Nb := Agent_Nb;
        Agent.The_Class := The_Class;
        Add (Agent.Method_List, The_Method_Name);
    end Init_Agent;


    procedure Add_Methode (The_Method_Name : in T_Method_Name;
                           The_Agent : in out T_Agent) is
    begin
        if not (Is_Member (The_Agent.Method_List, The_Method_Name)) then
            Add (The_Agent.Method_List, The_Method_Name);
        end if;
    end Add_Methode;


    procedure Add_Spy (The_Spy : in T_Spy; The_Agent : in out T_Agent) is
    begin
        if not (Is_Member (The_Agent.The_Spy_List, The_Spy)) then
            Add (The_Agent.The_Spy_List, The_Spy);
        end if;
    end Add_Spy;


    procedure Add_Filter (The_Filter : in T_Filter;
                          The_Agent : in out T_Agent) is
    begin
        The_Agent.Filter := The_Filter;
    end Add_Filter;


    procedure Remove_Method (The_Method_Name : in T_Method_Name;
                             The_Agent : in out T_Agent) is
    begin
        if Is_Member (The_Agent.Method_List, The_Method_Name) then
            Delete (The_Agent.Method_List, The_Method_Name);
        end if;
    end Remove_Method;


    procedure Remove_Spy (The_Spy : in T_Spy; The_Agent : in out T_Agent) is
    begin
        if Is_Member (The_Agent.The_Spy_List, The_Spy) then
            Delete (The_Agent.The_Spy_List, The_Spy);
        end if;
    end Remove_Spy;


    procedure Remove_Filter (The_Agent : in out T_Agent) is
    begin
        The_Agent.Filter := Filter.Image (Agent_Nb.Value (0));
    end Remove_Filter;


    procedure Delete_Agent (The_Agent : in out T_Agent) is
    begin
        Make_Empty (The_Agent.Method_List);
        Make_Empty (The_Agent.The_Spy_List);
    end Delete_Agent;


    procedure Consult_Method_Name
                 (Agent : in T_Agent;
                  The_Method_List : out Method_Name_List.Set) is
    begin
        The_Method_List := Agent.Method_List;

    end Consult_Method_Name;


    procedure Consult_Filter (Agent : in T_Agent; Filter : out T_Filter) is
    begin
        Filter := Agent.Filter;
    end Consult_Filter;


    procedure Consult_The_Spy_List (The_Agent : in T_Agent;
                                    The_Spy_List : out Spy_List.Set) is
    begin
        The_Spy_List := The_Agent.The_Spy_List;
    end Consult_The_Spy_List;


    procedure Consult_Class (Agent : in T_Agent;
                             The_Agent_Class : out Typ_Agent_Class) is
    begin
        The_Agent_Class := Agent.The_Class;
    end Consult_Class;


    function Is_Filtered (Agent : in T_Agent) return Boolean is
    begin
        if Agent.Filter /= Filter.Image (Agent_Nb.Value (0)) then
            return True;
        else
            return False;
        end if;
    end Is_Filtered;


    function Is_Spied (Agent : in T_Agent) return Boolean is
    begin
        if not (Is_Empty (Agent.The_Spy_List)) then
            return True;
        else
            return False;
        end if;
    end Is_Spied;
    procedure Consult_Agent_Nb (Th_Agent : in T_Agent;
                                The_Agent_Nb : out T_Agent_Nb) is
    begin
        The_Agent_Nb := Th_Agent.Agent_Nb;
    end Consult_Agent_Nb;
end Agent;

    nblk1=5
    nid=2
    hdr6=8
        [0x00] rec0=1d rec1=00 rec2=01 rec3=026
        [0x01] rec0=20 rec1=00 rec2=04 rec3=00e
        [0x02] rec0=24 rec1=00 rec2=03 rec3=012
        [0x03] rec0=23 rec1=00 rec2=05 rec3=000
        [0x04] rec0=05 rec1=00 rec2=03 rec3=000
    tail 0x21763e13487c654d2556d 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 01 b8 80 1c 74 5f 43 6c 61 73 73 20 28 41  ┆      t_Class (A┆