|
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: 796 (0x31c)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Symbol_Table;
with Object;
with Text_Io;
procedure Toto is
package Natural_Io is new Text_Io.Integer_Io (Natural);
package Class_Io is new Text_Io.Enumeration_Io (Object.Class_Id);
package Identity_Io is new Text_Io.Integer_Io (Object.Num_Instance);
Titi, Tata : Object.Reference;
begin
Titi.Class := Object.Bloc;
Titi.Identity := 25;
Symbol_Table.Symbol.Initialize (Symbol_Table.Ma_Map);
Natural_Io.Put (Symbol_Table.Symbol.Cardinality (Symbol_Table.Ma_Map));
Symbol_Table.Symbol.Define (Symbol_Table.Ma_Map, "titi", Titi, True);
Natural_Io.Put (Symbol_Table.Symbol.Cardinality (Symbol_Table.Ma_Map));
Tata := Symbol_Table.Symbol.Eval (Symbol_Table.Ma_Map, "titi");
Class_Io.Put (Tata.Class);
Identity_Io.Put (Tata.Identity);
end Toto;