|
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: 1200 (0x4b0)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦e24fb53b7⟧
└─⟦this⟧
package body Fact_Reference is
function Get_Class (From_Object : Object) return Natural is
begin
return From_Object.Class;
end Get_Class;
function Get_Instance (From_Object : Object) return Natural is
begin
return From_Object.Instance;
end Get_Instance;
function Value (C, I : Natural) return Object is
begin
return (Object'(C, I));
end Value;
procedure Get (From_Object : Object; C, I : out Natural) is
begin
C := From_Object.Class;
I := From_Object.Instance;
end Get;
procedure Set_Class (Of_Object : in out Object; To : Natural) is
begin
Of_Object.Class := To;
end Set_Class;
procedure Set_Instance (Of_Object : in out Object; To : Natural) is
begin
Of_Object.Instance := To;
end Set_Instance;
procedure Put (The_Object : Object; Where : Output_Stream.Object) is
begin
Output_Stream.Put ("Classe => ", Where);
Output_Stream.Put (Natural'Image (The_Object.Class), Where);
Output_Stream.Put (" , Instance => ", Where);
Output_Stream.Put_Line (Natural'Image (The_Object.Class), Where);
end Put;
end Fact_Reference;