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

⟦1762b22bb⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Req_Id_Manager, seg_055631

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 Set_Generic;


package Req_Id_Manager is

    type Object is limited private;

    procedure Initialize (Tab : out Object);
    function Get_Is_Empty (Tab : Object) return Boolean;
    procedure Get (Tab : in out Object; Req_Id : in out Positive);
    procedure Delete (Tab : in out Object; Req_Id : Positive);

private

    type Table is array (Positive) of Boolean;
    type Object is
        record
            Element : Table;
            Is_Full : Boolean;
            Number_Of_Element : Natural;
        end record;

end Req_Id_Manager;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=19 rec1=00 rec2=01 rec3=000
    tail 0x2175f963487bd486c5450 0x42a00088462060003