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 - metrics - download
Index: B T

⟦16c5cbccf⟧ TextFile

    Length: 2283 (0x8eb)
    Types: TextFile
    Names: »B«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Symbol_Table;  
with Text_Io;
use Symbol_Table;
procedure Test_Symb_Tab is  
    Ma_Valeur : Symbol_Table.Value;
    Mon_Type : Symbol_Table.Type_Element;
    Succes : Boolean;
begin
    Text_Io.Put_Line ("test de la table des symboles");
    Symbol_Table.Insert ("toto", Succes);
    Symbol_Table.Set_Val ("toto", 45, Succes);
    Symbol_Table.Insert ("tata", Succes);
    Symbol_Table.Set_Type ("tata", Acteur, Succes);
    Symbol_Table.Get_Type ("tata", Mon_Type, Succes);
    Text_Io.Put_Line ("type de tata ? : " & Type_Element'Image (Mon_Type));

    Symbol_Table.Insert ("tutu", Succes);
    Symbol_Table.Insert ("titi", Succes);
    Text_Io.Put_Line ("toto existe ? : " &
                      Boolean'Image (Symbol_Table.Visible_Element ("toto")));
    Symbol_Table.Set_Table ("titi", Succes);
    Text_Io.Put_Line ("succes de creation de la table : " &
                      Boolean'Image (Succes));

    Symbol_Table.Set_Current_Table ("titi", Succes);
    Symbol_Table.Insert ("toto2", Succes);  
    Text_Io.Put_Line ("toto2 existe dans le sous-rep ? : " &
                      Boolean'Image (Symbol_Table.Visible_Element ("toto2")));

    Text_Io.Put_Line ("toto existe vu du sous_rep ? : " &
                      Boolean'Image (Symbol_Table.Visible_Element ("toto")));
    Symbol_Table.Set_Val ("toto", 1789, Succes);
    Symbol_Table.Leave_Table (Succes);
    Symbol_Table.Get_Val ("toto", Ma_Valeur, Succes);
    Text_Io.Put_Line ("toto' valeur? : " & Value'Image (Ma_Valeur));

    Text_Io.Put_Line ("toto2 existe vu du root ? : " &
                      Boolean'Image (Symbol_Table.Visible_Element ("toto2")));

    Symbol_Table.Set_Current_Table ("titi", Succes);
    Text_Io.Put_Line ("succes de changement de table : " &
                      Boolean'Image (Succes));
    Text_Io.Put_Line ("toto2 a nouveau visible ? : " &
                      Boolean'Image (Symbol_Table.Visible_Element ("toto2")));
    Symbol_Table.Get_Type ("tata", Mon_Type, Succes);
    Text_Io.Put_Line ("type de tata vu du sous_tree ? : " &
                      Type_Element'Image (Mon_Type));

    Symbol_Table.Get_Val ("toto", Ma_Valeur, Succes);
    Text_Io.Put_Line ("valeur de toto vu du sous_tree ? : " &
                      Value'Image (Ma_Valeur));

end Test_Symb_Tab;