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 - metrics - download

⟦6ed11d032⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Generic_Agent, seg_055f0b

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 Letter_Box_Frames;  -- Connecteur pour l'agent
with Connector_Frames; -- BAL pour l'agent

with Text_Io;
with Orb_Defs;

with Transport_Defs;
with Orb_Defs;
with Mail_Sender;
with Frame_Defs;

with V_String;

generic
    -- procedure decrivant l'action associee a l'agent
    with function Treat (The_Class : in Orb_Defs.Class;
                         The_Funct : in Orb_Defs.Funct) return String;
    Name : Orb_Defs.Name;
package Generic_Agent is

    type Contract_Descriptor is private;

    procedure Close;

    procedure Register (The_Contract_Descriptor : Contract_Descriptor);

    procedure Unregister;

    function Is_Registrated return Boolean;

    procedure Ask_For_A_Job (The_Wanted_Class : Orb_Defs.Class;
                             The_Wanted_Function : Orb_Defs.Funct;
                             The_Job_Number : in Natural);

    procedure Get_Job_Result (The_Number : out Natural;
                              The_Job_Answer : in out V_String.Variable_String);

    function Is_There_A_Job_Result return Boolean;

    --
    -- methodes pour manipuler le descripteur de contrat
    --

    procedure Add_Field (The_Descriptor : in out Contract_Descriptor;
                         The_Item : String);

    procedure Add_Field (The_Descriptor : in out Contract_Descriptor;
                         The_Number : Natural);

private
    type Contract_Descriptor is
        record
            Data : V_String.Variable_String;
        end record;

end Generic_Agent;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=25 rec1=00 rec2=01 rec3=040
        [0x01] rec0=15 rec1=00 rec2=02 rec3=001
    tail 0x217616f5e87c0a5dfbcab 0x42a00088462060003