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

⟦aa93e9aca⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Ada_Traversal, seg_0045a3

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 Directory_Renames;
use Directory_Renames;
with Log;
with Profile;
procedure Ada_Traversal (Units : in out Directory_Tools.Object.Iterator) is
    Unit      : Object.Handle;
    Comp_Kind : Ada_Object.Compilation_Kind;
begin
    while not Object.Done (Units) loop
        Unit := Object.Value (Units);

        Comp_Kind := Ada_Object.Kind (Unit);
        if Comp_Kind = Ada_Object.Not_Class_Ada then
            Log.Put_Line (Naming.Unique_Full_Name (Unit) &
                          " is not an Ada unit", Profile.Warning_Msg);
        elsif Ada_Object.Is_Installed (Unit) then
            Yield_Installed_Ada_Unit (Unit);
        else
            Log.Put_Line (Naming.Unique_Full_Name (Unit) & " is not installed",
                          Profile.Warning_Msg);
        end if;
        Object.Next (Units);
    end loop;
end Ada_Traversal;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=1a rec1=00 rec2=01 rec3=000
    tail 0x217002130815c6524c62e 0x42a00088462061e03