|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Symbol, seg_03157e, seg_03159e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Table;
with Bounded_String;
with Object;
with Text_Io;
procedure Test_Symbol is
S : Bounded_String.Variable_String (20);
New_Reference, The_Object : Object.Reference;
Success : Boolean;
begin
Table.Initialize;
Bounded_String.Append (S, "test");
New_Reference := Object.Create (Object.String_Classe, 100);
Text_Io.Put ("Insertion de la chaine ==>");
Text_Io.Put_Line (Bounded_String.Image (S));
Table.Insert (S, New_Reference);
Table.Find (S, The_Object, Success);
if Success then
begin
Text_Io.Put ("1:J'AI TROUVE : ID ==>");
Text_Io.Put_Line (Integer'Image (Object.Get_Value (The_Object)));
Text_Io.Put_Line ("Test de Eval");
New_Reference := Table.Eval (S);
Text_Io.Put_Line (Integer'Image (Object.Get_Value (The_Object)));
end;
else
Text_Io.Put_Line ("Je N'AI pas TROUVE ");
end if;
-------- New_Reference := Object.Create (Object.String_Classe, 200);
Text_Io.Put ("Re_Insertion de la chaine ==>");
Text_Io.Put_Line (Bounded_String.Image (S));
Table.Insert (S, New_Reference);
Table.Find (S, The_Object, Success);
if Success then
begin
Text_Io.Put ("2:J'AI TROUVE : ID ==>");
Text_Io.Put_Line (Integer'Image (Object.Get_Value (The_Object)));
end;
else
Text_Io.Put_Line ("Je N'AI pas TROUVE ");
end if;
--------------
Text_Io.Put_Line ("Recherche de la meme chaine");
Table.Find (S, The_Object, Success);
if Success then
begin
Text_Io.Put ("3:J'AI TROUVE : ID ==>");
Text_Io.Put_Line (Integer'Image (Object.Get_Value (The_Object)));
end;
else
Text_Io.Put_Line ("Je N'AI pas TROUVE ");
end if;
-------------
Text_Io.Put ("J'enleve la string : ");
Text_Io.Put_Line (Bounded_String.Image (S));
Table.Remove (S);
Table.Find (S, The_Object, Success);
if Success then
begin
Text_Io.Put ("4:J'AI TROUVE : ID ==>");
Text_Io.Put (Integer'Image (Object.Get_Value (The_Object)));
end;
else
Text_Io.Put_Line ("Je N'AI pas TROUVE ");
end if;
end Test_Symbol;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=22 rec1=00 rec2=01 rec3=002
[0x01] rec0=01 rec1=00 rec2=04 rec3=034
[0x02] rec0=20 rec1=00 rec2=02 rec3=004
[0x03] rec0=0f rec1=00 rec2=03 rec3=000
tail 0x2172b4b7884bc54445a27 0x42a00088462060003