|
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: ┃ B T ┃
Length: 833 (0x341)
Types: TextFile
Names: »B«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Symbols_Table;
with Object;
with Text_Io;
procedure Test_Symbols is
package Natural_Io is new Text_Io.Integer_Io (Natural);
package Integer_Io is new Text_Io.Integer_Io (Integer);
package Class_Io is new Text_Io.Enumeration_Io (Object.Class);
Titi, Tata : Object.Reference;
begin
Titi.Class_Id := Object.Bloc;
Titi.Object_Id := 25;
Symbols_Table.My_Table.Initialize (Symbols_Table.My_Map);
Natural_Io.Put (Symbols_Table.My_Table.Cardinality (Symbols_Table.My_Map));
Symbols_Table.My_Table.Define (Symbols_Table.My_Map, "titi", Titi, True);
Natural_Io.Put (Symbols_Table.My_Table.Cardinality (Symbols_Table.My_Map));
Tata := Symbols_Table.My_Table.Eval (Symbols_Table.My_Map, "titi");
Class_Io.Put (Tata.Class_Id);
Integer_Io.Put (Tata.Object_Id);
end Test_Symbols;