DataMuseum.dk

top - download

    Length: 3708 (0xe7c)
    Types: TextFile
    Names: »B«

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

TextFile

with Token;
with Text_Io;
with Set_Generic;
use Token;
package body Follow is

    procedure Init_Set is
    begin
        Token_Set.Add (Dans_Suite_Follow, L_Fin);

        Token_Set.Copy (Affectation_Follow, Dans_Suite_Follow);
        Token_Set.Add (Affectation_Follow, L_Puis);
        Token_Set.Add (Affectation_Follow, L_Dans);
        Token_Set.Add (Affectation_Follow, L_Tantque);
        Token_Set.Add (Affectation_Follow, L_Attendre);
        Token_Set.Add (Affectation_Follow, L_Repeter);
        Token_Set.Add (Affectation_Follow, L_Debut);
        Token_Set.Add (Affectation_Follow, L_Activer);
        Token_Set.Add (Affectation_Follow, L_Desact);
        Token_Set.Add (Affectation_Follow, L_Changer);
        Token_Set.Add (Affectation_Follow, L_Evoluer);
        Token_Set.Add (Affectation_Follow, L_Id);
        Token_Set.Add (Affectation_Follow, L_Lancer_Scene);
        Token_Set.Add (Affectation_Follow, L_Appel_Effet);

        Token_Set.Copy (Evoluer_Follow, Affectation_Follow);

        Token_Set.Copy (Changer_Follow, Affectation_Follow);

        Token_Set.Copy (Desactiver_Follow, Affectation_Follow);

        Token_Set.Copy (Activer_Follow, Affectation_Follow);

        Token_Set.Copy (Debut_Follow, Affectation_Follow);

        Token_Set.Copy (Repeter_Follow, Affectation_Follow);

        Token_Set.Add (Relation_Follow, L_Ouvrante);
        Token_Set.Add (Relation_Follow, L_Id);
        Token_Set.Add (Relation_Follow, L_Nbr);

        Token_Set.Copy (Expr_Follow, Affectation_Follow);
        Token_Set.Add (Expr_Follow, L_Faire);
        Token_Set.Add (Expr_Follow, L_Inf);
        Token_Set.Add (Expr_Follow, L_Sup);
        Token_Set.Add (Expr_Follow, L_Egal);
        Token_Set.Add (Expr_Follow, L_Pas_Egal);
        Token_Set.Add (Expr_Follow, L_Inf_Ou_Egal);
        Token_Set.Add (Expr_Follow, L_Sup_Ou_Egal);
        Token_Set.Add (Expr_Follow, L_Fermante);
        Token_Set.Add (Expr_Follow, L_Virgule);
        Token_Set.Add (Expr_Follow, L_Fois);

        Token_Set.Copy (Term_Follow, Expr_Follow);
        Token_Set.Add (Term_Follow, L_Plus);
        Token_Set.Add (Term_Follow, L_Moins);

        Token_Set.Copy (Facteur_Follow, Term_Follow);
        Token_Set.Add (Facteur_Follow, L_Mult);
        Token_Set.Add (Facteur_Follow, L_Div);

        Token_Set.Add (Condition_Follow, L_Faire);

        Token_Set.Copy (Tant_Que_Follow, Affectation_Follow);

        Token_Set.Copy (Attendre_Follow, Affectation_Follow);

        Token_Set.Copy (Variable_Follow, Facteur_Follow);
        Token_Set.Add (Variable_Follow, L_Fois);

        Token_Set.Copy (Dans_Follow, Affectation_Follow);

        Token_Set.Add (Autre_Parametre_Reel_Follow, L_Fermante);

        Token_Set.Copy (Parametre_Follow, Affectation_Follow);

        Token_Set.Copy (Appel_Effet_Follow, Affectation_Follow);

        Token_Set.Copy (Appel_Scene_Follow, Affectation_Follow);

        Token_Set.Add (Les_Ordres_Follow, L_Fin);
        Token_Set.Add (Les_Ordres_Follow, L_Puis);

        Token_Set.Add (Scenes_Follow, L_Debut);

        Token_Set.Add (Spectacle_Follow, L_Fin);

        Token_Set.Add (Autre_Parametre_Follow, L_Fermante);

        Token_Set.Add (Parametres_Follow, L_Est);

        Token_Set.Add (Les_Experiences_Follow, L_Fin);

        Token_Set.Add (Experience_Follow, L_Spectacle);

        Token_Set.Add (Stations_Follow, L_Fin);

        Token_Set.Add (Theatre_Follow, L_Exp);

        Token_Set.Add (Type_Actor_Follow, L_Virgule);

        Token_Set.Add (Acteurs_Follow, L_Fin);

        Token_Set.Add (Corps_Materiel_Follow, L_Fin);

        Token_Set.Add (Materiel_Follow, L_Theatre);

        Token_Set.Add (Start_Follow, L_Eof);

    end Init_Set;

end Follow;