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 ┃

⟦f37d55ba1⟧ TextFile

    Length: 2330 (0x91a)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Element;
with Symbol_Table;  
with Text_Io;
use Symbol_Table;
procedure Test_Symb_Tab is  
    Ma_Valeur : Element.Value;
    Mon_Type : Element.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", Element.Acteur, Succes);
    Symbol_Table.Get_Type ("tata", Mon_Type, Succes);
    Text_Io.Put_Line ("type de tata ? : " &
                      Element.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.Is_Visible ("toto")));
    Symbol_Table.Set_Table ("titi", Succes);
    Text_Io.Put_Line ("succes de creation de la table : " &
                      Boolean'Image (Succes));

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

    Text_Io.Put_Line ("toto existe vu du sous_rep ? : " &
                      Boolean'Image (Symbol_Table.Is_Visible ("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? : " & Element.Value'Image (Ma_Valeur));

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

    Symbol_Table.Change_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.Is_Visible ("toto2")));
    Symbol_Table.Get_Type ("tata", Mon_Type, Succes);
    Text_Io.Put_Line ("type de tata vu du sous_tree ? : " &
                      Element.Type_Element'Image (Mon_Type));

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

end Test_Symb_Tab;