|
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: T V
Length: 627 (0x273)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
package Object is
Predefined_Void : constant String := "Vide";
type Reference is private;
type Class is (C_Void, C_Boolean, C_Integer,
C_String, C_Block, C_Pen, C_Turtle);
function Void_Reference return Reference;
function Create (The_Class : Class; Ident : Integer := 0) return Reference;
function The_Class (The_Reference : Reference) return Class;
function Identificator (The_Reference : Reference) return Integer;
private
type Reference is
record
The_Class : Class := C_Void;
Ident : Integer := 0;
end record;
end Object;