DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦94c694b4c⟧ TextFile

    Length: 2236 (0x8bc)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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⟧

TextFile

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;