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

⟦5184593d4⟧ TextFile

    Length: 3152 (0xc50)
    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_2 is
    Ma_Valeur : Element.Value;
    Mon_Type : Element.Type_Element;
    Succes : Boolean;
    Ma_Classe : Element.Class;

    procedure Affiche_Erreur (The_Error : Boolean) is
    begin
        Text_Io.Put_Line (Boolean'Image (The_Error));
    end Affiche_Erreur;

begin
    Text_Io.Put_Line ("test de la table des symboles 2 -- le retour");

    Symbol_Table.Insert ("var_toto", Succes);
    Affiche_Erreur (Succes);
    Symbol_Table.Insert ("var_tata", Succes);
    Affiche_Erreur (Succes);
    Symbol_Table.Insert ("cd1", Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Set_Class ("cd1", "cd", Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Get_Class ("cd1", Ma_Classe, Succes);
    Affiche_Erreur (Succes);  
    Text_Io.Put_Line (Ma_Classe);


    Symbol_Table.Set_Type ("var_tata", Element.Variable, Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Set_Val ("var_toto", 1, Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Insert ("var_tutu", Succes);
    Affiche_Erreur (Succes);
    Symbol_Table.Set_Val ("var_tutu", 100, Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Insert ("rep_titi", Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Set_Table ("rep_titi", Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Change_Current_Table ("rep_titi", Succes);
    Affiche_Erreur (Succes);

    Text_Io.Put_Line ("test local avant creation : " &
                      Boolean'Image (Is_Visible_Local
                                        (The_Name => "var_toto")));

    Symbol_Table.Insert ("var_toto", Succes);
    Affiche_Erreur (Succes);  
    Text_Io.Put_Line ("test local apres creation : " &
                      Boolean'Image (Is_Visible_Local
                                        (The_Name => "var_toto")));

    Symbol_Table.Set_Val ("var_toto", 2, Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Insert ("var_tata", Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Set_Type ("var_tata", Element.Scene, Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Get_Val ("var_tutu", Ma_Valeur, Succes);
    Affiche_Erreur (Succes);
    Text_Io.Put_Line (Integer'Image (Ma_Valeur));

    Symbol_Table.Get_Val ("var_toto", Ma_Valeur, Succes);
    Affiche_Erreur (Succes);
    Text_Io.Put_Line (Integer'Image (Ma_Valeur));

    Symbol_Table.Get_Type ("var_tata", Mon_Type, Succes);
    Affiche_Erreur (Succes);
    Text_Io.Put_Line (Element.Type_Element'Image (Mon_Type));

    Symbol_Table.Leave_Table (Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Get_Type ("var_tata", Mon_Type, Succes);
    Affiche_Erreur (Succes);
    Text_Io.Put_Line (Element.Type_Element'Image (Mon_Type));

    Symbol_Table.Get_Val ("var_toto", Ma_Valeur, Succes);
    Affiche_Erreur (Succes);
    Text_Io.Put_Line (Integer'Image (Ma_Valeur));

    Symbol_Table.Change_Current_Table ("rep_titi", Succes);
    Affiche_Erreur (Succes);

    Symbol_Table.Get_Val ("var_toto", Ma_Valeur, Succes);
    Affiche_Erreur (Succes);
    Text_Io.Put_Line (Integer'Image (Ma_Valeur));


end Test_Symb_Tab_2;