|
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: 1456 (0x5b0)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Object;
with Bloc;
with Symbol;
package Bloc_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_Argument : Object.Parameters.List)
return Object.Reference;
function Create (Value : Object.Message) return Object.Reference;
procedure Set (Address : Bloc.Node);
procedure Close;
procedure Local_Put (Identifier : Object.Message);
procedure Put (Identifier : Object.Message);
procedure Set (Identifier : Object.Message; Obj : Object.Reference);
function Get (Identifier : Object.Message) return Object.Reference;
private
subtype Index is Integer range 0 .. 99;
type Item is
record
Node : Bloc.Node := Bloc.Empty_Node;
Table : Symbol.Map;
Enclosing : Object.Reference := Object.Void_Reference;
end record;
type Bloc_Table is array (Index range <>) of Item;
subtype Iterator is Index;
type Collection is
record
Table : Bloc_Table (Index);
Iter : Iterator := 0;
end record;
Bloc_Collection : Collection;
Current_Bloc : Object.Reference := Object.Void_Reference;
Predifined_Symbol : Object.Message;
end Bloc_Class;