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

⟦1ba292f5f⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Bird, package body Self, seg_03a44d

Derivation

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

with Bird_Of_Prey;
package body Bird is

    package Self is
        procedure Sleep (B : Object);
    end Self;


    package body Self is
        procedure Sleep (B : Object) is

        begin  
            null;
        end Sleep;  
    end Self;


    procedure Eat (B : Object; Passe : Boolean := False) is  
        A : Animal.Object := Animal.Object (B);
    begin
        case Animal.Get_Os_Bird (A) is
            when 0 =>
                Animal.Self.Eat (A);

            when 1 =>
                if not Passe then
                    Bird_Of_Prey.Eat (Bird_Of_Prey.Object (B), True);
                else
                    Animal.Eat (A);
                end if;

            when others =>
                null;
        end case;
    end Eat;
end Bird;

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