|
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: 688 (0x2b0)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Object;
with String_Map_Generic;
package Symbol is
type Map is private;
procedure Create (Table : in out Map);
function Already_Exist (Identifier : String; Table : Map) return Boolean;
function Get (Identifier : String; Table : Map) return Object.Reference;
procedure Put (Identifier : String;
Table : in out Map;
Obj : Object.Reference);
private
package Table is new String_Map_Generic (Size => 100,
Range_Type => Object.Reference,
Ignore_Case => True);
type Map is new Table.Map;
Principal_Map : Map;
end Symbol;