DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦5513a54b5⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

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;