|
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: ┃ T V ┃
Length: 861 (0x35d)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Object;
package String_Class is
function Send (To_Object : Object.Reference; The_Message : Object.Message)
return Object.Reference;
function Send (To_Object : Object.Reference; The_Message : Object.Message)
return String;
function Send (To_Object : Object.Reference;
The_Message : Object.Message;
The_Argument : Object.Reference) return Object.Reference;
function Create (Value : Object.Message) return Object.Reference;
private
subtype Index is Integer range 0 .. 99;
type String_Table is array (Index range <>) of Object.Message;
subtype Iterator is Index;
type Collection is
record
Table : String_Table (Index);
Iter : Iterator := 0;
end record;
String_Collection : Collection;
end String_Class;