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 ┃

⟦178e0ebd1⟧ TextFile

    Length: 3123 (0xc33)
    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_2 is
    Ma_Valeur : Symbol_Table.Value;
    Mon_Type : Symbol_Table.Type_Element;
    Succes : Boolean;
    Ma_Classe : String (1 .. 80);

    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", 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.Set_Current_Table ("rep_titi", Succes);
    Affiche_Erreur (Succes);

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

    Symbol_Table.Insert ("var_toto", Succes);
    Affiche_Erreur (Succes);  
    Text_Io.Put_Line ("test local apres creation : " &
                      Boolean'Image (Visible_Element_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", 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 (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 (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.Set_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;