|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 768 (0x300)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦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;