|
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: 746 (0x2ea)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Custom;
with Object;
with Scanner;
package String_Class is
function Create (Value : String) return Object.Reference;
function Create (Value : Scanner.Lexeme) return Object.Reference;
function Get_Value (String_Object : Object.Reference) return Scanner.Lexeme;
function Send (To_Object : Object.Reference; The_Message : Scanner.Lexeme)
return Object.Reference;
function Send (To_Object : Object.Reference;
The_Message : Scanner.Lexeme;
With_Object : Object.Reference) return Object.Reference;
function Get_For_Error (Value : String) return Object.Reference;
private
String_Tab : array (1 .. Custom.String_Max_Number) of Scanner.Lexeme;
end String_Class;