|
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 - metrics - downloadIndex: B T
Length: 701 (0x2bd)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
package body Object is
function Create (What : Class; Value : Integer) return Reference is
Obj : Reference;
begin
Obj.Class_Id := What;
Obj.Object_Id := Value;
return Obj;
end Create;
function Get_Id (Object : Reference) return Integer is
begin
return Object.Object_Id;
end Get_Id;
function Get_Class (Object : Reference) return Class is
begin
return Object.Class_Id;
end Get_Class;
function Equal (Right, Left : Reference) return Boolean is
begin
return (Class'Pos (Right.Class_Id) = Class'Pos (Left.Class_Id)) and
(Right.Object_Id = Left.Object_Id);
end Equal;
end Object;